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SEQ 0001 

1 [REM 

2 

3 

4 

5 

é 

? 

8 

3 IDENTIFICATION 

11 

12 PRODUCT CODE:  AC-F609A-MC 

14 PRODUCT NAME:  CKKTAAQ 11/44 MEM MGMT PRT A 

16 DATE: OCTOBER, 1979 

18 MAINTAINER: DIAGNOSTIC ENGINEERING 
20 AUTHOR : J. PETER BRADY 
52 
33 
$3 
26 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
57 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
38 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
39 NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 

30 DOCUMENT. 

32 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
33 PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM 
74 AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) 
35 ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED 
36 IN WRITING BY DIGITAL. 

38 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 

39 FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
40 THAT IS NOT SUPPLIED BY DIGITAL. 


42 COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 
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SEQ 0002 


45 PROGRAM HISTORY 


3 DATE REVISION REASON FOR REVISION 
4 —_= £4 i . .  }—_—_<7 ~~  (—-aapieiaeseneReseeneneneat 
50 OCTOBER, 1979 A FIRST RELEASE 
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PROGRAM INFORMATION 


THIS PROGRAM WAS DESIGNED USING A ‘BOTTOM UP’’ APPROACH 
STARTING WITH THE SMALLEST SEGMENT OF MEMORY MANAGMENT 
LOGIC POSSIBLE AND BUILDING TO COVER ALL OF THE LOGIC. 
THE DIAGNOSTIC WILL PROVIDE ENOUGH INFORMATION SUCH THAT 
BY DEDUCTION, THE FAILURE CAN BE ISOLATED TO A SMALL 
SEGMENT OF THE MEMORY MANAGEMENT LOGIC. 


PART A BEGINS BY TESTING SOME OF THE INTERNAL CPU DATA 

AND ADDRESS PATHS AND ADDRESS DETECTION LOGIC, THEN 

WORKS OUTWARD THROUGH THE MEMORY MANAGEMENT REGISTERS. 

AFTER THE REGISTERS ARE FOUND TO BE USEABLE, RELOCATION 
(CONSTRUCTION OF PHYSICAL ADDRESSES FROM A VIRTUAL ADDRESS 
AND THE ASSOCIATED PAR/PDR_ INFORMATION) IS TESTED. PART B 
BEGINS BY TESTING THE ABORT AND STATUS SEGMENTS OF LOGIC. 
PART B THEN CHECKS THE SPECIAL ABORT SEQUENCES, THE MFPI/MTPI 
INSTRUCTIONS AND THE CSM INSTRUCTION. 


REQUIREMENTS 


A PDP 11/44 PROCESSOR WITH A MINIMUM OF 16K OF MEMORY 
AND A CONSOLE TERMINAL ARE REQUIRED TO RUN THE PROGRAM 
UNLESS THE PROGRAM IS RUNNING UNDER APT OR ACT IN WHICH 
CASE THE CONSOLE TERMINAL IS NOT NECESSARY. 


RELATED DOCUMENTS AND STANDARDS 


1 ACT11/XXDP PROGRAMMING SPECIFICATION 

e. STANDARD APT SYSTEM TO A PDP11 DIAGNOSTIC INTERFACE 
a DIAGNOSITC ENGINEERING STANDARDS AND CONVENTIONS 
4. PDP11 MAINDEC SYSMAC PACKAGE 

5 XXDP USER'S MANUAL 


PRELIMINARY PROGRAMS 


BEFORE THIS MEMORY MANAGEMENT DIAGNOSITC IS RUN, THE 
FOLLOWING DIAGNOSTICS SHOULD BE RUN: 


CKKAAAO 1/44 CPU/EIS 
CKKABAO 11/44 TRAPS 


ALSO, THE MAIN MEMORY DIAGNOSTIC (CZ2MSD) SHOULD BE RUN TO SCAN 
AT LEAST THE FIRST 16K TO SEE THAT A PROGRAM CAN BE EXECUTED. 


OPERATING INSTRUCTIONS 


wer em ee te ee Oe SH HHS 


SEQ 0004 
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THE PROGRAM IS SUPPLIED ON THE gm yt LOAD MEDIA. 
REFER TO THE XXDP USER'S MANUAL FOR FURTHER INFORMATION. 
FOR USE WITH ACT OR APT, REFER TO THEIR RESPECTIVE 
DOCUMENTS. THE PROGRAM CAN ALSO BE DIRECTLY LOADED 
USING THE ABSOLUTE LOADER AND THE BINARY PAPER TAPE. 


STARTING PROCEDURES 


— ot es is 8 es tt J 
DPV SVWAVW AV SVSVSVS 
WOONAUEWI--O 


THE PROGRAM IS STARTED BY LOADING ADDRESS 200 AND 

STARTING. THE SWITCH REGISTER SHOULD BE SET ACCORDING TO 
SECTION 2.3 BEFORE THE PROGRAM IS STARTED. HOWEVER, IF 
DESIRED, THE PROGRAM WILL USE THE SOFTWARE SWITCH REGISTER 
AT LOCATION 176 (LOCATION 174 WILL BE USED AS THE SOFTWARE 
DISPLAY REGISTER). IN THAT CASE, THE PROGRAM WILL ASK FOR 
THE INITIAL Ts REGISTER VALUE BY TYPING ‘‘SWR= XXXXXX 
NEW= ‘' AFTER TYPING THE NAME OF THE PROGRAM (XXXXXX = 
THE OCTAL CONTENTS OF LOCATION 176). (SEE SECTION 2.4) 


ALSO THE PROGRAM CAN BE MADE TO USE THE SOFTWARE SWITCH 
REG. EVEN IF THE CONSOLE SWITCH REG. IS PRESENT BY LOADING 
ms Sy 6 INTO THE CONSOLE SWITCH REG. BEFORE STARTING 

H GRAM. 


CONTROL SWITCH SETTINGS 


100000 ROR 

THIS SWITCH WHEN SET WILL HALT 
THE PROCESSOR WHEN AN ERROR IS 
DETECTED AFTER THE ERROR MESSAGE 
HAS BEEN TYPED. PRESSING CONTINUE 
WILL at TESTING (SEE SECTION 
3.1 ABOUT LOADING THE SWITCH REG 
BEF ORE CONTINUING) . 


040000 TEST 
THIS SWITCH WHEN SET WILL 
CAUSE THE PROGRAM TO LOOP ON 
THE CURRENT SUBTEST. 


020000 INHIBIT ERROR TYPEOQUTS 
THIS SWITCH WHEN SET WILL 
INHIBIT THE TYPING OF ERROR 
MESSAGES. 


010000 INHIBIT TRACE TRAP 
THIS SWITCH i . SET WILL 
NORMAL L 
EVERY OTHER PASS STARTING 
WITH THE THIRD PASS. 


002000 ERROR 
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SEQ 0006 
207 THIS SWITCH WHEN SET WILL RING 
208 THE CONSOLE TERMINAL BELL WHEN 
209 AN ERROR HAS BEEN DETECTED. 


SwW9 001000 LOOP ON ERROR 
THIS SWITCH WHEN SET WILL 
CAUSE THE PROGRAM TO LOOP ON THE 
FIRST FAILURE WHICH IS ENCOUNTERED 
EVEN IF THE FAILURE IS INTERMITTANT 


ee ts et 
ONAUSWNH-O 


Sw8 000400 LOOP ON TEST IN SWR<7:0> 

THIS SWITCH WHEN SET WILL 
219 CAUSE THE PROGRAM TO LOOP ON THE 
220 TEST WHOSE TEST NUMBER IS SET 
$5) IN BITS 7-0 OF THE SWITCH REG. 
223 2.4 LOADING THE SWITCH REGISTER 
See 
226 THE CONSOLE SWITCH REGISTER a IS LOADED DIRECTLY FROM 
227 THE CONSOLE BY TYPING A CONTROL P (“P), THEN WHEN THE CONSOLE 
228 PROMPT IS RECIEVED, TYPE ‘D SW XXXXXX', WHERE 'XXXXXX'' IS THE 
229 INTENDED VALUE OF THE SWITCH REGISTER. THE VALUE OF THE 
230 CONSOLE SWITCH REG. CAN BE CHANGED ANY TIME WHETHER THE PROGRAM 
$3 IS RUNNING OR NOT. 
233 TO LOAD THE SOFTWARE SWITCH REG. WHILE THE PROGRAM IS 
234 RUNNING, A CONTROL G (*G) SHOULD BE TYPED ON THE CONSOLE 
235 TERMINAL. (THE ‘‘SCOPE'’ AND ‘ERROR'’ ROUTINES CHECK TO SEE 
236 IF A “G HAS BEEN TYFED.) THE ORIGINAL VALUE OF THE SOFTWARE 
+14 SWTICH REG. WILL BE REQUESTED AS MENTIONED IN SECTION 2.2. 
239 IN RESPONSE TO A “G OR AT THE BEGINNING OF THE PROGRAM, THE 
any PROGRAM WILL TYPE: 
aa SWR = XXXXXX NEW = 
244 WHERE ‘XXXXXX** IS THE CURRENT OCTAL CONTENTS OF LOC. 176. 
245 THE OPERATOR MAY THEN TYPE ANY ONE OF THE FOLLOWING: 
246 XXXXXK<CR> ONE TO SIX OCTAL DIGITS FOLLOWED BY A 
247 CARRIAGE RETURN WHICH WILL BE LOADED 
248 AS THE NEW VALUE FOR THE SWITCH REG. 
249 <CR> JUST A <CR>, LEAVES THE SWITCH REG. 
250 AS IT_IS. 
251 XXX*U A CONTROL-U (*U) WILL CAUSE ALL OF THE 
252 DIGITS TYPED SO FAR TO BE IGNORED. 
253 ~~ WILL CAUSE THE PROGRAM TO TYPE THE PRESENT 
254 TEST AND PASS NUMBERS, REQUEST A NEW VALUE 
255 FOR THE SWITCH REG., AND JUMP TO THE END- 
256 Mey ROUTINE SO THE PROGRAM WILL GO DIRECTLY 
257 TO THE NEXT PASS WITH A NEW SW. REG. VALUE 
258 <ILL.CHAR> ANY CHARACTER TYPED WHICH IS NOT ANY OF THE 
259 ABOVE OR AN OCTAL DIGIT WILL CAUSE THE PROGRAM 
260 TO TYPE A ‘*?<CRLF>**’ AND REACT AS THOUGH A 
$05 “U HAD BEEN TYPED. 


263 NOTE: RECOGNITION OF A “G MAY BE HAMPERED BY 
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_ SEQ 0007 


Ny ek ee a ie EXECUTION OF A COUPLE ‘RESET’’ INSTRUCTIONS 

265 WITHIN THE PROGRAM. 

66 

267 2.5 EXECUTION TIMES 

Bete | fants) ace an Raaaamaaaerean 

270 THE RUN TIME FOR A SINGLE PASS WITH TRACE TRAPPING 

er ENABLED IS APPROXIMATELY 8 SECONDS WITH CACHE. 

2? 3.0 ERROR INFORMATION 

eee 4 GE nt ae RS ee, mcmama 

275 

276 3.1 ERROR REPORTING PROCEDURES 

le Boat tine eee ie 

279 IF AN ERROR IS DETECTED, THE PROGRAM WILL TRAP TO THE 
280 ERROR HANDLING ROUTINE (SERROR). THE VALUE OF BITS 

281 15,13,10, AND 9 IN THE SWITCH REGISTER ARE {CONSIDERED 
282 | IN REPORTING AN ERROR (SEE SECTION 2.3). THE 

283 ; ERROR INFORMATION WILL BE TYPED UNLESS SwW13 = 

285 IF SW15 = 1, THE PROCESSOR WILL HALT AFTER THE ERROR IS 
286 REPORTED. ‘"e THE CONTENTS OF THE SOFTWARE SWITCH REGISTER 
287 ARE TO BE CHANGED, A “G SHOULD BE TYPED BEFORE PRESSING 
o88 SCONTINUE' TO RESUME. TESTING. 

290 IF SW9 = 1 (LOOP ON ERROR), THE PROGRAM WILL GO TO THE 
291 ADDRESS CONTAINED IN LOCATION "SLPERR''. AFTER REPORTING 
292 THE ERROR. '‘SLPERR'' IS SET BY EACH ‘'SCOPE'’ CALL AND IS 
293 SET DIRECTLY DURING SOME SUBTESTS TO PROVIDE THE SMALLEST 
294 LOOP FOR LOOPING ON ERROR. IF SW9 = 0, THE PROGRAM WILL 
295 RETURN TO THE INSTRUCTION FOLLOWING THE ERROR CALL. 

296 (SEE SECTION 5.3 FOR MORE ON ‘LOOP ON ERROR’’) 

298 | 3.2 INTERPRETING ERROR REPORTS 

44 \” ESET REESE ETE EEE Ee eSaTes 

301 EVERY ERROR REPORT TYPES THE NUMBER OF THE TEST IN WHICH 
02 THE ERROR TOOK PLACE (TESTNO) AND THE LOCATION OF THE 
303 | ERROR CALL (ERRORPC). THESE TWO VALUES PINPOINT THE 
304 PLACE INTHE CODE THAT THE ERROR OCCURRED. BY REFERRING 
305 TO THE PROGRAM LISTING, THE OPERATOR CAN THEN RE 


AD THE 
COMMENTS ASSOCIATED WITH THAT PARTICULAR ERROR AND SUBTEST. 
A DESCRIPTION OF THE TEST FOUND IN THE PROGRAM LISTING 

WILL ALSO PROVIDE THE OPERATOR WITH INFORMATION ON THE LOGIC 
AND FUNCTIONS BEING TESTED. 


EVERY ERROR REPORT ALSO TYPES AN ERROR MESSAGE 
GIVING A VERBAL DESCRIPTION OF THE ERROR THAT HAS 
BEEN DETECTED. 


BY USING THE COMMENTS AND TEST DESCRIPTION FOUND IN 
THE PROGRAM LISTING TO DETERMINE WHAT FUNCTION OR 
LOGIC WAS BEING TESTED, THE OPERATOR CAN THEN REFER 
TO THE ENGINEERING DRAWINGS TO ISOLATE THE PROBABLE 
CAUSE FOR THE FAILURE. 


Seek 
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SAMPLE ERROR REPORT 


BELOW IS AN EXAMPLE OF AN ERROR WHICH COULD HAVE 
OCCURRED DURING EXECUTION OF THE PROGRAM: 


MEM. MGMT. REG. BITS ws SET paths y 
REGISTR WROTE READ READ= (BINARY) 

ADDRESS (OCTAL) (OCTAL) 8732109876543210 TESTNO ERRORPC 
177572 040000 060000 0110000000000000 000012 022060 


WE SEE THAT THE ERROR OCCURRED IN TEST 12 AT LOCATION 
022060. THE ‘REGISTER ADDRESS"* TELLS US THAT WE WERE 
TESTING MEMORY MANAGEMENT'S STATUS RGISTER 0 (SRO). 

IN THE LISTING, THE TEST DESCRIPTION SAYS THAT THE 
ERROR BITS (BITS <15:13>) OF SRO WERE BEING SET AND 


CLEARED INDIVIDUALLY. THE ERROR REPORT SAYS WE TRIED 
TO SET BIT 14 BY WRITING ‘040000"' TO SRO BUT WHEN 
READ IT BACK WE READ '060000°". | EARS THAT BIT 13 IS 


A 
TO ‘l'', ERROR REPORTS BEFORE AND AFTER THIS ONE COULD 
TELL US WHICH IS THE CASE. 


MISCELLANEOUS INFORMATION 


THE PROGRAM IS FULLY ACT AND APT COMPATABLE 
AND IS SUPPORTED UNDER THE XXDP PACKAGE. 


END-OF=PASS MESSAGE 


AT THE END OF EACH PASS OF THE PROGRAM THE PASS NUMBER 
AND TOTAL NUMBER OF ERRORS SINCE THE LAST END-OF=PASS ARE 
REPORTED IN THE END-OF-PASS MESSAGE. FOR EXAMPLE: 


END OF PASS #2 TOTAL ERRORS SINCE LAST REPORT 0 


THAT WOULD INDICATE THAT PASS TWO WAS JUST COMPLETED 
AND NO ERRORS WERE DETECTED DURING THAT PASS. BOTH 
THE PASS NUMBER AND NUMBER OF ERRORS ARE DECIMAL NUMBERS. 


T-BIT TRAPPING 


THE "‘T=BIT’' (BIT 4) IN THE PROCESSOR STATUS WORD IS SET 

BY AN 'RTI'’ IN THE END-OF-PASS ROUTINE FOR Oo tbl OTHER PASS 
BEGINNING WITH THE THIRD PASS (PASSES 3,5,7,9...). T-BIT 
TRAPPING CAN BE pores ae SETTING BIT i2°= 1 IN THE SWITCH 
REGISTER (SEE SECTION 2.4 


POWER FAILURE HANDLING 


SEQ 0008 
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378 IF A POWER FAIL OCCURS (FOLLOWED BY A POWER UP), THE 
379 MESSAGE ‘POWER FAILURE-RESTARTING'’ IS TYPED OUT AND 
380 THE PROGRAM WILL RESTART EXECUTION AT “‘START:'' (THE 
381 VERY BEGINNING OF THE PROGRAM. IF THE. SOFTWARE 

382 SWITCH REGISTER IS BEING USED, ITS CONTENTS WILi BE 
385 RESTORED. 


34 4.5 PHYSICAL BUS ADDRESS CONSTRUCTION 


388 BELOW IS A SIMPLIFIED DIAGRAM OF HOW THE MEMORY 

389 MANAGEMENT LOGIC CONSTRUCTS A PHYSICAL BUS ADDRESS 

390 USING THE VIRTUAL ADDRESS AND THE PAGE ADDRESS REGISTER. 

391 THE PAGE DESCRIPTOR REGISTER SELECTED WILL CONTAIN THE 

392 PAGE EXPANSION, LENGTH, AND ACCESS INFORMATION. 

ted 12 11 10 09 08 07 06 05 04 03 02 01 00 
396 L.aeEeeees 2 Eee SS 
B70 tt Re 
398 I 

339 (ADDED TO) 

rr A 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 

403 revpeopwsse ea#eetrtrset ees ea wa PAR*® 
L0G a I 

405 I I 

406 I I 

407 V V 

408 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
410 ro70700808%71766000668631%1779779 3 @ Om 
412 

413 *= VBA BITS <15:13> SELECT THE APPROPRIATE PAR AND PDR 

414 xx= PSW MODE BITS <15: 16> SELECTS THE USER (=11), SUPERVISCR 

a9 (=01) OR KERNEL (=00) SET OF PAR'S/PDR'S 

417 5.0 PROGRAM DESCRIPTION 

419 Weer NEN TE 

420 5.1 SUBROUTINES USED BY THIS PROGRAM 

422 

423 FOLLOWING IS A LIST OF THE SUBROUTINES AND HANDLERS USED 

424 BY THIS PROGRAM THAT ARE NOT PROVIDED BY THE ‘‘SYSMAC 

425 PACKAGE’. DETAILS OF THE SUBROUTINES UNIQUE TO THIS 

426 PROGRAM MAY BE FOUND IN THE PROGRAM LISTING. REFER TO 

427 THE ‘‘SYSMAC’’ DOCUMENT AND PROGRAM LISTING FOR THE OTHER 


ROUTINES. 


TURN OFF T-BIT AND SAVE CURRENT PSW 

TURN ON T-BIT AND RESTORE Arig toy PS 

SET ALL WRITEABLE BITS IN ALL PAR/PDR'S 
CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 


fwn— 
* es © @ 
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NOTE ALSO THAT THE MACRO LIBRARY USED TO ASSEMBLE THIS PROGRAM 


HAS OTHER SPECIAL ROUTINES APPENDED TO THE SYSMAC MACRO arte 


THIS LIBRARY MUST BE USED TO ASSEMBLE EITHER PART A OR PART 
CORRECTLY. 


PROGRAM LISTING 


A TABLE OF CONTENTS APPEARS AT THE BEGINNING OF THE LISTING 
WHICH CONTAINS THE NAMES OF EACH SECTION, SUBTEST, AND 
a AND THE LINE NUMBERS CORRESPONDING TO THE START OF 


FOLLOWING THIS SECTION OF DOCUMENTATION IS THE ACTUAL 
PROGRAM LISTING en WITH SUBTEST DESCRIPTIONS AND 
“CODING COMMENTS** 


USING THE PROGRAM TO DIAGNOSE A FAULT 





WHEN AN ERROR OCCURS, ONE OF THE THINGS THAT'S IMPORTANT 
TO NOTE IS WHAT PASS THE ERROR OCCURRED ON. IF THE PASS 
NUMBER IS ODD AND IS THREE OR GREATER, THE ERROR MIGHT BE 
T-BIT SENSITIVE. TRY RUNNING THE PROGRAM AGAIN WITH BIT 
12 OF THE SWITCH REG. EQUAL TO ‘l’’ TO INHIBIT T-BIT 
TRAPPING. THIS SHOULD HELP YOU DETERMINE WHAT MAKES THE 
MACHINE FAIL AND WHEN. 


IF YOU HAVE A my WITH BIT 15 OF THE SWITCH 

REG. EQUAL TO ‘0"', YOU ARE ABLE TO LOOK AT ALL 

THE ERRORS THAT MAY BE NRELATED TO THE FAULT YOU ARE 
DIAGNOSING. A FAULT _IN AN EARLIER TEST MAY RESULT IN 
ERRORS DURING LATER TESTS WHICH MAY GIVE YOU MORE 

CLUES ABOUT THE NATURE OF THE FAULT. NOW USE THE METHOD 
OUTLINED IN SECTION 3.2 FOR EACH ERROR TO GATHER AS 
MUCH INFORMATION AS POSSIBLE. 


NOW TO TEST YOUR IDEAS ON THE CAUSE OF THE FAILURE, 

YOU MAY WANT TO SCOPE THIS ERROR CONDITION. SET BIT 09 
OF = SWITCH REG. EQUAL TO ‘*‘l’* TU LOOP ON THE ERROR. 
FOR AN EVEN TIGHTER SCOPE LOOP THE ERROR CALL CAN BE 
REPLACED WITH A BRANCH (REFER TO COMMENTS BY ERROR CALLS 
IN THE PROGRAM LISTING). 


OR YOU COULD LOOP ON THE TEST BY EITHER SETTING BIT 14 

OF THE SWITCH REG. metae TO ‘l'' OF BY SETTING BIT A OF THE 
SWITCH REG. EQUAL TO ‘‘l"* AND THEN Mtg THE TEST NUMBER 
IN BITS 07-00 OF THE SWITCH REG. YOU WILL PROBABLY WANT TO 
prog Bo TYPEOUTS BY SETTING BIT 13 OF THE SWITCH REG. 


SEQ 0010 
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804 
805 TITLE CKKTAAQ 11/44 MEM MGMT PRT A 
:*COPYRIGHT (C) 1979 
;*DIGITAL EQUIPMENT CORP. 
*MAYNARD, MASS. 01754 
b4 °e 
SeTHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
:*PACKAGE (MAINDEC~11=DZQAC=C3), JAN 19, 1977. 


*SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT TRACE TRAP 

BELL ON ERROR 

LOOP ON ERROR 

s* 8 LOOP ON TEST IN SWR<7:0> 
“SBTTL BASIC DEFINITIONS 

a hae OF THE STACK POINTER *** 1100 *** 


STACK= 
ERROR=EMT 


SCOPE=I0T 
3 *MISCELLANEOUS DEFINITIONS 
HT= 11 : 3 CODE FOR HORIZONTAL TAB 
CR= 5 ;;CODE FOR CARRIAGE RETURN 
CRLF= 200 ' 3;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= ; PROCESSOR STATUS WORD 


P 

STKLMT= 22 STACK LIMIT REGISTER 

PIRQ= PROGRAM INTERRUPT REQUEST REGISTER 
DSWR 77570 ; HARDWARE SWITCH REGISTER 

DDISP= 177570 ;HARDWARE DISPLAY REGISTER 

; *GENERAL PURPOSE REGISTER DEF INITIONS 

RO= 20 RAL REG 


te ae tee 
eee ee eH SH 


3 ISTACK BOINTER 
PC= ss? COUNTER 
:*PRIORITY LEVEL DEFINITIONS 
<~ e F 


100 
140 
200 


NOWUSWN-O 


> PRIORITY 
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BASIC DEF INI TIONS SEQ 0012 


7*' ‘SWITCH REGISTER’ SWITCH DEFINITIONS 
Sw15= 100000 


:*DATA 


B1T1=81T01 

B1T0=81T00 
;*BASIC “‘CPU’* TRAP VECTOR ADDRESSES 
ERRVEC= 4 33¥ OUT AND OTHER ERRORS 
RESVEC= 10 7 RESERVED AND ILLEGAL INSTRUCTIONS 
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BASIC DEFINITIONS SEQ 0013 
000014 TBITVEC=14 | i BIT 
000014 TRTIVEC= 14 ; TRACE TRAP 
000014 BPTVEC= 14 BREAKPOINT TRAP (BPT) 
000020 IOTVEC= 20 oe ie TRAP (IOT) **SCOPE** 
000024 PWRVEC= 24 ;;POWER FAIL 
00030 EMTVEC= 30 + s EMULATOR TRAP (EMT) **ERROR** 
000034 TRAPVE C=34 ;'"TRAP** TRAP 
Hinks 3 60 TTY KEYBOARD VECTOR 
000064 PVEC= 64 eeTTy PRINTER VECTOR 
000240 PIROVEC= 240 PROGRAM INTERRUPT REQUEST VECTOR 
808 .SBTTL MEMORY MANAGEMENT’ DEFINITIONS 


3*KT11 VECTOR ADDRESS 
MMVEC= 250 


000250 2 
:*KT11 STATUS REGISTER ADDRESSES 
177572 §RO= «177572 
177574 SR1= —- 177574 
177576 SR2= —- 177576 
172516 SR3= 
*USER ''I'' PAGE DESCRIPTOR REGISTERS 
177600 UIPDRO= 
177602 UIPDR1= 177602 
177604 UIPDR2= 177604 
177 UIPDR3= 177606 
177610 UIPDR4= 177610 
177612 UIPDR5S= 177612 
177614 UIPDR6= 177614 
177616 UIPDR7= 
; USER D PAGE DESCRIPTOR REGISTORS 
177620 UDPDRO= 1 
177622 UDPDR1= 175650 
177624 UDPDR2= 177624 
177626 UDPDR3= 177626 
177630 UDPDR4= 177630 
177632 UDPDRS= 177632 ° 
177634 UDPDR6= 17 
177636 UDPDR7= 
;*USER "‘I'' PAGE ADDRESS REGISTERS 
177640 UIPARO= 1 
177642 UIPARI= 177642 
177644 UIPAR2= 177644 
64 UIPAR3= 177646 
177650 UIPAR4= 177650 
177652 UIPARS= 177652 
177654 UIPARG= 177694 
177656 UIPAR7= 1 
;*USER | ie PAGE ADDRESS REGISTERS 
177660 UDPAR 
177662 UDPAR1= 175662 
177664 UDPAR2= 1 
177666 UDPAR 3= 
177670 UDPAR4= 177670 
177672 UDPARS= 177672 
177674 UDPAR6= 177674 
177676 UDPAR7= 177676 


pt ead by “"I'' PAGE DESCRIPTOR REGISTERS 
172200 PDRO= 172200 
172202 SPDR = 172202 


CKKTAAO 11/44 MEM MGMT PRT A 
MEMORY MANAGEMENT DEFINITIONS 


172256 
172260 


i ate at ated od 
NNNNNN 


N 
N 
wW 
NM 
So 


172350 
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SIPDR2= 172204 


SIPDR7= 1722 

SDPDRO= 17222 
SDPDR1= 172222 
SDPDR2= 172224 
SDPDR3= 172226 
SDPDR4= 172230 
SDPDR5= 172232 
SDPDR6= 172234 
EER 172236 


rs ren : 2256 
ARO= 139560 
SDPARI= 172262 
SDPAR2= 172264 
SDPAR3= 172266 
SDPAR4= 172270 
SDPARS= 172272 
SDPARG= 172274 
SDPAR7= 172276 
> *KERNEL ' 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDRS= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
s*KERNEL ‘ 
KDPDRO= 172320 
KDPDR1= 172322 
KDPDR2= 172324 
KDPDR3= 172326 
KDPDR4= 172330 
KDPDRS5S= 172332 
KDPDR6= 172334 
KDPOR/'= 1723 


36 
*KERNEL ‘‘I*’ PAGE ADDRESS REGISTERS 


kK IPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPARS= 172350 





SEQ 0014 


CKKTAAO 11/44 MEM MGMT PRT A 
MEMORY MANAGEMENT DEF INI TIONS 


8 


0 C0 Cd 00 Co 00 00 Co 
antl and cco ath nab al cad cad 
NOWESWR Oo 


818 


000174 
000776 


000200 
882 


000046 
000052 
883 


000024 
000044 


000600 
177766 


020000 


C 2 
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KIPARS= 
KIPAR6= 


U 

TBI T=B1 TS 

WBIT=B1T6 
KERSTK=STACK 
SUPSTK=STACK=200 
USE STK=STACK-300 
CPUERR=177766 
RMIREG=177770 


-SBTTL TRAP CATCHER 


:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT’" 
“*SEQUENCE TO CATCH ILLEGAL TRAPS AND RUPTS 
: LOCATION, Q) CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


3;SOFTWARE DISPLAY REGISTER 
3: SOFTWARE SWITCH REGISTER 


@ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


=174 
DISPREG: .WORD 0 
SWREG: _.WORD 0 
- SBTTL STARTING ADDRESS(ES) 
-SBTTL ACT11 HOOKS 


FL ERA AERA AREER EERE EEE EERE ERERERA EERE 


; HOOKS —— BY ACT11 


PC=. SAVE PC 


=46 


SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


-WORD 0 2 22)SET LOC. te TO ZERO 
:: RESTORE P 


etre t iii titi ti tititiittitiiiiiiiiiiiii ii 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
Sermieneercopeensns teens Seeir canes. Vente ee 
-SX=.  ;;SAVE CURRENT LOCATION 
2=24 72SET POWER rau es POINT 7O START OF PROGRAM 


- =$SVPC 
-SBTTL APT PARAMETER BLOCK 


200 ee gh 


44 :POINT TO Hl INDIRECT ADDRESS PNTR. 
$APTHDR >:POINT TO 4PT HEADER BLOCK 


SEQ 0015 
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APT PARAMETER BLOCK SEQ 0016 


000204 -=.$X ;;RESET LOCATION COUNTER 
Motes Gait cememireen medean mak Gaetan oak ek aR cee 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
jINTERFACE SPEC. 


000204 

000204 000000 $HIBTS: .WORD 0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

000206 001224 SMBADR: .WORD S$MAIL  ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

000210 000010 $TSTM: .WORD 10 ;;RUN TIM OF LONGEST TEST 

000212 000020 $SPASTM: .WORD 20 oo TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
000214 000005 SUNITM: .WORD 5 DDIT ONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
000216 000014 . WORD SETEND-SMAIL/? LENGTH MAILBOX-E TABLE (WORDS) 







COMMON TA 
884 


gggggsssgsssesesssssegeeeeseses 
SRGRIaE REA RURCERER SSS TCeRRaSSS 


— — 
& RVSKRR 


Sees 





ee ded od — oS 


S8S8SSS8sSs S8SsSss 


a ee 
NENO 
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.SBTTL COMMON TAGS 
BRERA OI II IIIOIIIOIIOIOIIIIIIEIIOIOUIDIOIIIO OIE OE rit niin 
3*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

;*USED IN aetaganet: 


SCMTAG: 


STSTNM: . 


SAUTOB: . 


ASCII 
“ASCII 


lelelelelelelelelele® lelelelelelelelea) 


°° 
~—2 
ad 
v 


re —m 


OoOoCoceo BWDOOCOCOCOF FGO—-NVNO 


<207><377><377> : 


/?/ 
<15> 
<12> 





72 START OF 
; ; : CONTAINS 


COMMON TAGS 


THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS —-- 


ITEM CONTROL 
MAX. 


ERRORS PER TEST 
PC OF + ERROR —— 
ADDRESS "GOOD" DATA 
ADDRESS OF "BAD" DATA 
‘GOOD’ DAT 


; ATA 
SRESERVED=-NOT TO BE USED 


3 AUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


SO ONESS OF SWITCH REGISTER 
ADDRESS OF cane on REGISTER 


TTY KBD STA 


; SITY KBD BUFFER 
zetty PRINTER STATUS at ADDRESS 


TTY PRINTER BUFFER 


NS 
ONTAINS 


# OF FILLER CHARACTERS eeoee 


: INSERT FILL CHARS. AFTER A ‘LINE FE 
""TERMINAL AVAILABLE*’ chan (BIT<07>=0=YES) 


: CONTAINS 
; WHICH 


ze ; ¢ CONTAINS 
; CONTAINS 


3 CONTAINS 
2: CONTAINS 


THE ADDRESS F 


(SREGO) WAS OBTAINED 


(($REGAD) +0) 


(($REGAD) +12) 


: ; sUSER DEF INED 


NED 
SCAPE ON ERROR ADDRESS 


‘CODE FOR BELL 


aha} ION MARK 
fps: RETURN 


2iLINE FEED 








F 
CKKTAAO thee” MEM MGMT PRT A MACRO M1111 26=SEP=79 12:27 PAGE 10-1 


COMMON T 


*SBTTL APT MAILBOX-ETABLE 


SEQ 0018 
WR ARRARARASAASRSAAAAAALASARSARAAS SARA R ASE RR RR RRA RAR ASRS R ARRAS ARR SS SS SS 
FL RAAAEAARAARAREREEARARRRERRARARERARERARRRARERAEERRRARARERARARA ERA 
EVEN 
SMAIL: ;;APT MAILBOX 
$MSGTY: .WORD MESSAGE TYPE CODE 
SFATAL: .WORD ::FATAL ERROR NUMBER 
STESTN: .WORD 7; TEST NUMBER 
SPASS: .WORD ;3PASS COUNT 
SDEVCT: .WORD :sDEVICE COUNT 
IT: .WORD 3:1/0 UNIT 8 
GAD: .WORD 7:MESSAGE ADDRESS 
SMSGLG: .WORD 7:MESSAGE LENGTH 
SE TABLE : 33 APT ENVIRONMENT TABLE 
¥ SENV:  .BYTE 7 ENVIRONMENT BYT 
SENVM: .BYTE ; ENVIRONMENT MODE BITS 
SSWREG: 7:APT SWITCH REGISTER 
SUSWR: .WORD :;USER SWITCHES 
$CPUOP: .WORD ;CPU TYPE, OPTIONS 
:* BITS 15- is CPU TYPE 
:* 11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
:* 11/70=06 .PDQ=07 ,0=10 
:* BIT 10=REAL TIME CLOCK 
:* BIT 9=FLOATING POINT PROCESSOR 
;¢ BIT 8=MEMORY MANAGEMENT 
$E TEND 
MEXIT 
TESTNO: .WORD ;HOLDS TEST NUMBER FOR TYPEOUTS 
WASR6: .WORD ;USED TO STORE THE STACK POINTER AFTER A TRAP 
TRAPPC: .WORD [USED TO STORE THE PC OF A TRAP OR T 
TRAPPS: .WORD ;USED TO STORE THE PS OF A TRAP OR ABORT 
WASSRO: .WORD ;USED TO STORE CONTENTS OF SRO 
WASSR1: .WORD ;USED TO STORE CONTENTS OF SR1 
WASSR2: .WORD ;USED TO STORE CONTENTS OF SR2 
TBITPS: .WORD 7SAVES THE PSW THAT MAY HAVE ITS T-BIT ON 
:  .WORD ;HOLDS NUMBER OF TIME-OUTS 
VIRT1: WORD ;HOLDS VIRTUAL ADDRESS TO BE CONVERTED 
VIRT2: .WORD Ret: om int 
PBALO: .WORD e ;HOLDS BITS <15:00> OF PHYSICAL ADDRESS 
PBAHI: .WORD sHOLDS BITS <21:16> OF PHYSICAL ADDRESS 
DATAOR: .WORD y ;HOLDS LOGICAL OR OF BAD DATA 
DATAND: .WORD ;HOLDS LOGICAL AND OF BAD DATA 
PATTOR: .WORD ‘ ;HOLDS LOGICAL OR OF PATTERN LOADED 
PATAND: .WORD sHOLDS LOGICAL AND OF PATTERN LOADED 
ADDROR: .WORD ;HOLDS LOGICAL OR OF ADDRESS 
: .WORD ;HOLDS LOGICAL AND OF ADDRESS 
ERRCNT: .WORD ;HOLDS R OF ERRORS ON TEST 
PC: .WORD ;HOLDS PC_FROM T OR TRAP 
OLDPC: .WORD ;HOLDS RETURN ADDRESS IN CASE OF LOOP ON ERROR 
OLDPS: .WORD ;HOLDS OLD PSW IN CASE OF LOOP ON ERROR 
PCPUER: .WORD ;HOLDS VALUE OF CPU ERROR REGISTER 
CPUEXP: .WORD ;HOLDS EXPECTED cP ERROR CONDITION 
HOLFLG: .WORD ;HOLDS NUMBER OF TIMEOUTS FOR CARRY BROPAGAT 108 TEST 
HDWF LAG: . WORD 
READON: .WORD 
SMXCNT: .WORD 


lelelelelelelelelelelelelelelelelelelelelelelelelelela) 


Ss 
8 


7FLAGS APT SPECIAL HARDWARE FOR 147 & TS 
:READ ONLY BIT IN MARO 
HOLD MAX. NUMBER OF LOOP ITERATIONS 


CKKTAAO 11/44 MEM MGMT PRT A MACRO M1111 26=SEP=79 12:27 PAGE 10- 
APT MAILBOX~E TABLE SEQ 0019 


$1BIT: .WORD 0 s"T” GIT + it INDICATOR 
Me 015 $CNTLC: .ASCIZ /*C/<15><12> ; CONTROL 


E 
PARTAB: ; THIS IS THE TABLE OF THE FIRST PAR OR PDR 
;OF EACH GROUP. THEY ARE USED FOR THE DUAL 
;ADDRESSING TEST. 
;SIPDRO 
;SIPARO 
sKIPDRO 
;KIPARO 
;UIPDRO 
177640 sUIPARO 





H 
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ERROR POINTER TABLE SEQ 0020 


-SBTTL ERROR POINTER TABLE 

:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

[*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE ;° PERTINENT. 
;*NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC) 

> *NOTE2: EACH Saag THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* M POINTS TO THE ERROR MESSAGE 

: : EPOINTS TO THE DATA HEADER 

he : [POINTS TO THE DATA 

hd DF ;3POINTS TO THE DATA FORMAT 
SERRTB: 


UNEXPECTED CPU TRAP TO LOC. 004 
;0LD PC OLD PSW R6 WAS CPUERR  TESTNO ERRORPC 
Dorey et  WASR6, CPUERR, TESTNO,SERPPC, 0 


s* ITEM 2 
EM2 ; UNEXPECTED M. MGMT. TRAP TO LOC. 250 

;OLD PC OLD: PSW R6 WAS SRO SR1 SR2 TESTNO ERR 

‘0°0.066.0-0.0. ~— ~WASSRO,WASSR1,WASSR2, TESTNO, SERRPC ,0 


ss ITEM 3 


awe hy SET WRONG IN PSW 
:WROT READ TESTNO ERRORPC 
047646 ‘SREGO, $REG1, TESTNO, SERRPC ,0 

050375 :0,0,0,0 


s*ITEM 4 
041452 EM4 ;MODE BITS SET WRONG IN PSW 
045026 sWROTE READ TESTNO ERRORPC 
047646 :SREGO,$REG1, TESTNO, SERRPC ,0 
050375 :0.0,0.0 


7* ITEM 5 
EMS : DUAL ADDRESSING BETWEEN HI8LO BYTES OF PSwW 
WROTE READ TESTNO ERRORPC 
047646 “$REGO, SREG1, TESTNO, SERRPC ,0 
050375 *0,0,0.0 


041560 EM6 KERNEL R6 CHANGED BY WRITING SUPERVISOR/USER R6 
045026 [WROTE READ TESTNO ERRORPC 

047646 $REGO, $REG1, TESTNO, SERRPC ,0 

050375 :0,0,0.0 


:A_MEMORY MGMT. REG. TIMED OUT 
ADDRESS TESTNO ERRORPC 
7 $REGO, TESTNO, SERRPC 0 


;*1TEM 10 
< EM10 ; SUMMARY OF MEM. MGMT. REG. TIMEOUTS 
930 001464 DH10 TREGISTER-ADDRS NUM. OF 





2 
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ERROR POINTER TABLE SEQ 0021 
931 ;AND-ED OR-ED TIMOUTS TESTNO ERRORPC 
932 001466 047670 DTI0 ; ADRAND ,ADDROR,, TONUM, TESTNO, SERRPC ,0 
933 001470 050404 ‘ DF 10 70,0,1.0, 
934 
935 s* ITEM 11 
936 001472 041745 —M11 7MEM. ~ yt REG. sy NOT — 
937 001474 045216 DHi1 ;REGISTR READ -(BINAR 
938 ‘ADDRESS (OCTAL) 8535 109876543210 TESTNO ERRORPC 
939 001476 047704 DT11 :$REGO, $REG1,$REG1, TESTNO, SERRPC ,0 
oe 001500 050411 DF11 :0,0.2.0,0 
942 s*1TEM 12 
943 001502 042005 EM12 ;MEM. MGMT. REG. BITS NOT SET CORRECTLY 
944 001504 045336 DH12 TREGISTR WROTE READ READ 
5 ‘ADDRESS (OCTAL) (OCTAL) (BINARY) TESTNO ERRORPC 
946 001506 047720 DT12 7 SREGO, SREG1, $REG2, $REG2, TESTNO, SERRPC ,0 
27 001510 050416 DF12 :0,0,0.2,0,0 
949 s*ITEM 13 
950 001512 042054 EM13 + SRO EFFECTED BY WRITE ly PSwW 
951 001514 045476 DH13 READ TESTNO ERRORPC 
952 001516 047660 DT7 “$REGO, TESTNO, SERRPC ,0 
ee 001520 050401 DF7 70,0,0 
955 7*I1TEM 14 
956 001522 042111 EM14 :MMR7i DID NOT TRACK PROPERLY 
957 001524 045526 DH14 -EXPECTD (MMR1) TESTNO ERRORPC 
958 001526 047736 DT14 7 SREG3.$REG1, TESTNO, SERRPC ,0 
959 001530 050375 DF3 :0,0,0,0 
960 
961 s* ITEM 15 
962 001532 042145 EM15 ;MMR3 IS HOLDING THE WRONG DATA 
963 001534 045566 DH1$ sLOADED (MMR3) TESTNO ERRORPC 
964 001536 047750 DT15 :$REG2,$REG1, TESTNO, SERRPC 0 
oe 001540 050375 DF3 70,0,0.0 
967 * s*J]TEM 16 
968 001542 042204 EM16 ;DUAL ADDRESSING BETWEEN PAR-PDR GROUPS 
969 001544 045626 DH16 zs INDEX INDEX PAR-PDR 
970 SEXPECTD RECEIVD ADDRREAD TESTNO ERRORPC 
971 001546 047762 DT16 :$REGO, $REG1, $REG2, TESTNO, SERRPC .0 
4h 4 001550 050360 DF1 :0,0,0.0,0 
974 s*1TEM 17 
975 001552 042253 —M17 PHYS. ADDR. FORMED READ WRONG IN MAINT. MODE 
976 001554 045727 DH17 “VIR ADDR KIPAR4 GDDATA BADDATA TESTNO ERRORPC 
977 001556 047776 D117 *$REGO, KIPAR4, $REG1,$REG2, TESTNO, SERRPC ,0 
978 001560 0503465 DF2 :0,0,0.0,0,0 
980 s*1TEM 20 ; 
981 001562 042331 EM20 PHYS. ADDR. FORMED READ WRONG IN RELOCATE MODE 
982 001564 046010 DH20 sPHYSICL PAR 4 oe 5 
983 ‘ADDRESS VBA AR 5 TESTNO ERR 
984 001566 050014 DT20 :PBALO, VIRTI VIRTS S SREG4, SREGS, STHPO. TESTNO” SERRPC .O 
985 001570 050432 DF 20 *3,0,0.0,0,0.0,0 


986 
987 3*1TEM 21 


988 001572 
989 001574 

001576 
991 001600 


2e33 


994 001602 
995 001604 
996 


997 001606 
998 001610 


gg 8g 


SESRSS88Ss3 


1624 
1626 
1630 


jelolelelelelojeielele) 
— ot os a ee 
SOMVRNnRWN=O 
—s a SH 
oO 


8 ggsg gggs 


642 
1021 001644 
1022 001646 
1023 001650 
1024 
1025 
1026 001652 
1027 001654 


1028 001656 
1029 001660 
1030 


1034 666 
1035 001670 
1036 
1037 
1038 001672 
1039 001674 
1040 
1041 001676 
1042 001700 
1043 
1044 
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042403 
046136 
050036 
050375 
042436 
046176 
050050 
050432 


042514 
045216 


04 

050112 
050375 
043015 
046334 
050124 
050375 
043055 
046374 
050136 
050375 


MACRO M1111 


7*I1TEM 24 
EM 


s*1TEM 22 
EM2e 


DH22 


DT22 
DF 20 


7*1TEM 23 
EM23 


DH11 


DT11 
DF11 


se ITEM 31 
—EM31 


DH31 


D131 
DF3 


st 1TEM 32 


J 
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SEQ 0022 


;SR2 NOT TRACKING CORRECTLY 
;SR2 WAS EXPECTD TESTNO ERROPC 
;WASSR2 , $REG1, TESTNO, SERRPC ,0 


. 
. o e 2 


;WRONG PDR'S REFERENCED WHILE IN RELOCATE MODE 

;PHYSICL PAR 4 

ADDRESS V.B.A. PAR 4 SRO WAS SR2 WAS PSW TESTNO ERRO 
:PBALO,VIRVT “SECS, AWASSRO. WASSR2,$TMPO, TESTNO, SERRPC 0 


AR OR PDR WAS CHANGED BY A - aaa 
REGISTR READ READ~ (BINARY) 

SADDRESS (OCTAL) 5432109876543210 TESTNO ERRORPC 
$REGO, $REG1,$REG1, TESTNO, SERRPC ,0 


MAINT MODE (SRO<8>) NOT DISABLED BY A RESET 
:TESTNO _ERRORPC 
; TESTNO, SERRPC ,0 


. 
e ’ 


;DATA_INCORRECT AFTER A MAINT. MODE WRITE 
[WROTE READ TESTNO ERRORPC 
;SREG1, SREG2, TESTNO, SERRPC .0 


Py oe o o 


; SOURCE RELOCATED gh ae MODE 
OLD oe ae PSW R6 WAS SRO SR2 TESTNO ERRORPC 
3 00. sk O00 3° WASR6, WASSRO, WASSR2, TESTNO, SERRPC ,0 


;SR2 DIDNOT LOCKUP CORRECT VIRTUAL ADDR. 
:SR2 WAS EXPECTD TESTNO ERRORPC 
SWASSR2 , SREG4 , TESTNO, SERRPC ,0 


. 
e e e aS 


7FOLLOWING PAR/PDR WILL NOT ZERO 
sADDRESS DATA TESTNO ERRORPC 
3 SREGO, SREG2, TESTNO, SERRPC ,0 


. 
© oO e e 


; SUMMARY OF DUAL ADDRESSING ERRORS 
ZADDROR ADDRAND ADDROR ADDRAND 
;LOADED LOADED ENABLED ENABLED TESTNO #ERRORS 
: ADDROR ,ADRé!.0 .DATAOR.DATAND . TESTNO.ERRCNT .0 
Py - . e e Pal) 


kK 
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ERROR POINTER TABLE SEQ 0023 


; SUMMARY OF COUNT PATTERN FAILURES 
ZADDROR ADDRAND PATRNOR PATRNAND DATAOR DATAAND TESTNO @#E 
: ADDROR -ADRAND , = -PATAND ,DATAOR ,DATAND, TESTNO,ERRCNT 0 


;ERROR IN BYTE ADDRESSING OF PAR/PDR 
sADDRESS EXPECTD RECEIVD TESTNO ERRORPC 
3 SREGO, $REG2,$REG1, TESTNO, SERRPC ,C 


. 
. e o ° e 


; THE FOLLOWING ARE DUAL ADDRESSING ERRORS FOR PAR*S/PDR'S 
SADDRESS ADDRESS 

;LOADED JUST READ TESTNO 

[THIS IS A NULL VALUE TO INHIBIT TYPING 

THIS IS A NULL VALUE TO INHIBIT TYPING 


;THIS IS A NULL VALUE TO INHIBIT TYPING 
THIS I IS A NULL VALUE TO INHIBIT TYPING 
$REGO,$REG1, TESTNO,O 


THE FOLLOWING ARE COUNT PATTERN ERRORS FOR PAR'S/PDR'S 
SADDRESS DATAREAD PATTERN COUNT —_TESTNO 
THIS IS A NULL VALUE TO INHIBIT TYPING 
;THIS IS A NULL VALUE TO INHIBIT TYPING 


NULL VALUE TO INHIBIT TYPING 
NULL VALUE TO INHIBIT TYPING 
G2, $REG4 ,$REG1, TESTNO,0 


7; ILLEGAL (MODE 10) STACK POINTER NOT MAPPED TO USER 
2 READOFF TESTNO ERRORPC 


:STA 
7SREGO, TESTNO, SERRPC 0 


e eoVe 


;18-B1T “wei eo HOLE IN MAIN MEMORY FROM 
> STARTADR NISHADR_ TESTNO ERRORPC 
7STMP1, siMPS. TESTNO, SERRPC ,0 


e e 2 e 


;FAULTY CARRY PROPAGATION 18-81T MAPPING 
[PATTERN DATA DRESS 
;LOADED FETCHED INTENDED TESTNO ERRORPC 
050250 ;$REG2, SREG3, SREGO, TESTNO, SERRPC , 0 
050365 :0,0,0.0,0 





1102 002012 
1103 002014 
1104 002016 
1105 002020 
1106 
1107 
1108 002022 
1109 002024 
1110 002026 
1711 002030 
1112 
1113 
1114 002032 
1115 002034 
1116 002036 
1117 002040 
1118 
1119 
1120 002042 
1121 002044 
1122 002046 
1123 002050 
1124 
1125 
1126 002052 
1127 002054 
1128 002056 
1129 002060 
1130 
1131 
1132 002062 
1133 002064 
1134 002066 
1135 002070 
1136 
1137 
1138 002072 
1139 002074 
1140 
1141 002076 
1142 002100 
1143 
1144 
1145 002102 
1146 002104 
1147 002106 
1148 002110 
1149 
1150 
1151 002112 
1152 002114 
1153 
1154 002116 
1155 002120 
1156 
1157 
1158 002122 
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50365 


050250 
050365 


044404 


MACRO M1111 


3*1TEM 51 


se ITEM 44 


7*1TEM 45 


*ITEM 46 


s*1TEM 47 


z* ITEM 50 


7*ITEM 52 


s* ITEM 53 


it ITEM 54 


L 
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;18-BIT MAPPING POSSIBLE HOLE AT TOP OF MEMORY 
ZSTARTADR TESTNO ERRORPC 
7STMP1, TESTNO, SERRPC ,0 


Ps td e 


NO TRAP THRU _* AT 18-BIT ADDR. 760000 
;TESTNO _ERROR 
; TESTNO, SERRPC, £ 


;DIDN'T GET WRAP AROUND TO ADDRESS ZERO 
:DATA TESTNO ERRORPC 
;$REG1, TESTNO, SERRPC ,0 


. 
° e ° 


;NO TRAP THRU ERRVEC, ON NON-EXISTANT ADDR. 
ZNEADDR TESTNO ERRORPC 
;$REGO, TESTNO, SERRC ,0 


° o e 


;PREMATURE END OF MEMORY FOUND 
TKIPAR4 LASTBK TESTNO ERRORPC 
:KIPARS ,SLSTBK. . TESTNO, SERRPC ,0 


3;22-BIT MAPPING POSSIBLE HOLE IN MAIN MEMORY FROM 
; STARTBK FINISHBK TESTNO ERRORPC 
3 STMP1,STMP2, TESTNO, SERRPC 0 


. 
e e ° ° 


3;BAD RELOCATION, CARRY PROPAGATION 22-BIT MAPPING 

PATTERN DATA ADDRESS 

: LOADED FETCHED INTENDED TESTNO ERRORPC 
SREG2 , SREGS, SREGO, TESTNO, SERRPC ,0 


Py eVevevVve 


3;22-BIT MAPPING POSSIBLE HOLE AT TOP OF MEMORY 
SSTARTADR TESTNO ERRORPC 
:STMPI, TESTNO, SERRPC, 


:DID_NOT GET UNIBUS ADDRESS 

PATTERN DATA ADDRESS 

SLOADED FETCHED INTENDED TESTNO ERRORPC 
; $REG2, SREG3, SREGO, TESTNO, SERRPC ,0 


e e e o ¢ 


z;W-BIT DID NOT GET SET IN PDR 


SEQ 0024 


M 
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ERROR POINTER TABLE SEQ 0025 


1159 002124 047326 DH54 :PDR VIRTUAL 

: TESTED ADDRESS _TESTNO ERRORPC 
050316 DT54 SREGS , SREG3, TESTNO, SERRPC ,0 
050375 DFS :0,0,0.0 


3*1TEM 55 
044441 EMSS sW-BIT SET a MORE THAN ONE PDR 
047406 DH55 PDR IN VIRTUAL 
ERROR TEs STED ADDRESS TESTNO ERRORPC 
050330 DT55 $REGO, $REGS , SREG3, TESTNO, SERRPC ,0 
050360 DF1 


° eoVeve e 


RS 8 


s*I1TEM 56 
:W=BIT NOT eee BY WRITING TO PDR 
PDR TEST ERRORPC 

“$REGS, TESTNO.S SERRPC,0 


e o ° 


eee 


+ GOT SET DURING ODD ADDR. ABORT 
WAS EXPECTD TESTNO ERRORPC 
“SREG, SREG1, TESTNO, SERRPC ,0 


Foronon 


NO APT oe HARDWARE FOUND 
; ERRORPC 
; SERRPC,, 0 


a a a ak dk od nd ot I 2 2 
VRALAVTLSISNRARAVASSELFALARSS 


8888 8885 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
11 
- 
1 


ronroner 
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ERROR POINTER TABLE SEQ 0026 
1189 
4b -SBTTL ***** SUBROUTINES UNIQUE TO THIS PROGRAM aanne 
1192 -SBTTL TURN OFF [-BIT AND SAVE CURRENT PSW 
1193 SLR REEER EERE ERE EERE REE 
1194 it 
1195 s* THIS SUBROUTINE IS USED TO TURN OFF THE TRACE TRAP BIT IN 
1196 :* THE PSW IF IT IS ON. THE PROCESSOR STATUS I& SAVED IN 
1197 3% ‘TBITPS'' SO THAT THE PSW CAN BE RESTORED TO ITS PREVIOUS 
ioe :* CONDITION WHEN CONDITIONS WARRANT T-BIT TRAPPING. 
-* 
1200 MUTITIITTITTTITTITTITTi ttl ittitititiitiitiittiiii iti t itt t ett 
1201 002172 036727 ° 175600 000020 TOFF: BIT PSW,ATBIT 31S THE oy T SET IN THE PSW? 
1202 002200 001411 BEQ 1$ EXIT IF 
1203 002202 016746 175570 MOV PSW,-(SP) PUSH PRESENT PSW ON THE STACK 
1204 002206 011667 177060 MOV (SP), TBITPS ZALSO SAVE IT_IN ‘‘TBITPS'' FOR 
1205 RESTORING LATER 
1206 002c12 042716 000020 BIC #TBIT, (SP) [CLEAR THE T-BIT (BIT 4) IN THE PSW 
1207 002216 012746 002224 MOV #1$,-(SP) ;PUSH PC OF ‘RTS'* ON STACK 
1208 002222 000006 RTT ;"RETURN'’ TO 1$ WITH T-B1T OFF 
44 002224 000207 1$: RTS PC [RETURN TO PROGRAM 
1211 -SBTTL TURN ON T=BIT AND RESTORE PREVIOUS PSW 
1212 LEAR RARER EERE REREEEEEEEREEERREEERERRERERER REE 
1213 7* 
1214 se THIS SUBROUTINE IS USED TO RESTORE THE PROCESSOR STATUS 
1215 2* TO ITS PREVIOUS CONDITION BY RESTORING THE *T-BIT PSw"' 
is\¢ :* SAVED BY THE ‘‘TOFF’* SUBROUTINE IN THE ‘‘TBITPS’* LOCATION. 
-* 
1218 PETTITT T ITT Ti Ti titi ti tiiiiiiiiitiiiitiiiiiiiititiiiiiiiiiis ys, 
1219 002226 036727 177040 000020 TON: BIT TBITPS ,ATBIT WAS T-BIT ON IN THE PREVIOUS PSW? 
1220 002234 001410 BEQ 1$ EXIT IF +, 
1221 002236 016746 177030 MOV TBITPS,~(SP) [PUSH PREVIOUS PSW ON THE STACK 
1222 002242 012767 000340 177022 MOV #340, TBITPS :RESET pe “‘TBITPS'* LOCATION 
1223 002250 012746 002256 MOV #1$.-(SP) :PUSH P C OF “RTS** ON STACK 
1224 002254 000006 RTT Rat ae TO 1$ WITH T-BIT RESTORED 
saz 002256 000207 1$: RTS PC [RETURN TO PROGRAM is2 
1227 -SBTTL CLEAR 16 PAR*S OR PDR'S STARTING FROM ADDRESS IN R5 
1228 oe coetaes aaaan Gk ane ie ammeter GamaneneneY Ta 
229 s* THIS ROUTINE CLEARS 16 CONSECUTIVE MEMORY MANAGEMENT 
1230 2* REGISTERS STARTING WITH THE yr tts gh POINTED TO BY R5. 
1231 se IT SAVES RO ON THE STACK, AND LOADS A COUNT IN RO, 
1232 tad CLEARS THE PAR'S OR PDR'S, AND THEN RESTORES RO 
ise .* BEFORE RETURNING. ‘i 
aa 
1235 s@ CALL: MOV #KIPARO RS PUT ADDRESS OF FIRST ay PAR INTO R5 
1236 7* JSR PC,CLRREG CLEAR ALL THE KERNAL PAR'S 
1237  saaaiibiaiaaenaamaentiakenstaaaiaahateosee tetenertenataran 
1238 
1239 002260 010046 CLRREG: MOV RO,~(KSP) 7SAVE RO ON THE STACK 
1240 002262 012700 000020 mov -#20,,RO PUT COUNT IN RO 
i) 002266 005025 1$: CLR (R5S+ [CLEAR PAR OR PDR eee TO BY RS 
1242 002270 077002 SOB RO,1$ ;BRANCH ~—_ is oe TIMES 
1243 002272 012600 MOV (KSP)+,RO :POP RO FROM S 


+3 002274 000207 RTS PC [RETURN TO Test 


8 
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CLEANUP LOCATIONS THAT HOLD LOGICAL ‘AND’ AND ‘OR' SEQ 0027 
1246 .SBTTL CLEANUP LOCATIONS THAT HOLD LOGICAL ‘AND’ AND ‘OR’ 
1247 LPR RRRARRRRA RARER RAA RAE A TEAR ARARAARAERARTRRA ETRE E AERA TE Eee 
1248 :* THIS on gpl: IS ane ae INITIALIZE ALL SS oo THAT 
1249 :* HOLD THE “LOGICAL AND "LOGICAL OR*' OF THE DATA AND 
1250 s* ADDRESSES THAT FAILED DURING THE EXECUTION OF A TEST. 
1251 SL RRRRRA RARER ERA RARER EERE RRA AERERERE ARATE RRR REE 
1252 
1253 002276 CLEANUP: 
1254 002276 005067 177004 CLR DATAOR ;LOCATION OF LOGICAL OR OF BAD DATA 
1255 002302 005067 177010 CLR ADDROR ;LOCATION OF LOGICAL OR OF ADDRESS 
1256 002 005067 177000 CLR PATTOR [LOCATION OF LOGICAL OR OF PATTERN LOADED 
1257 002312 012700 177777 MOV #~-1,RO ;LOAD -1 INTO RO TO INITIALIZE 
1258 002316 010067 176766 MOV RO,DATAND ;LOCATION OF LOGICAL AND OF BAD a 
1259 002322 010067 176772 MOV RO, ADRAND LOCATION OF LOGICAL AND OF ADDRESS 
1260 002326 010067 176762 MOV RO,PATAND : LOCATION OF LOGICAL AND OF PATTERN LOADED 
+d 002332 000207 RTS PC RETURN TO TEST 
1263 -SBTTL DUAL ADDRESSING WHEN LOADING A PAR OR PDR 
1264 PTTTI ITT TTT Ttet TTI Titi Titi titi titi iti iti tii titi iii tii ii it 
1265 ed THIS SUBROUTINE WILL LOG AND REPORT ALL DUAL oe wt corre 
1266 s@ FOUND IN BOTH PAR'S AND PDR'S. A ‘LOGICAL OR’’ A ‘LOG 
1267 i* AND’ OF THE WRITTEN ADDRESSES wit BE MAINTAINED ‘I IN * ADDROR 
1268 ;® AND “ADRAND*. THE LOG ON THE ADDIT IONAL OR FAILING ADDRESSES 
1269 s* WILL BE MAINTAINED IN "DATAOR' AND ‘DATAND’. 
1270 PETTITT TIT TI TITS TTI TTT T TITTLE LLL 
1271 
1272 002334 DUALADR : 
1273 002334 012667 176766 MOV (KSP) + ,OLDPC ;SAVE RETURN ADDRESS IN CASE OF LOOP 
1274 002340 050067 176752 BIS RO,ADDROR SLOGICAL OR OF WRITTEN ADDRESS 
1275 002344 030067 176750 BIT RO, ADRAND ;LOGICAL AND OF WRITTEN ADDRESS 
1276 002350 050167 176732 BIS R1,DATAOR ;LOGICAL OR OF DUALE 
1277 002354 030167 176730 BIT R1,DATAND ;LOGICAL AND OF DUALED DATA 
1278 002360 105767 176517 TSTB SERFLG ;SEE IF THIS IS FIRST ERROR 
1279 002364 001002 BNE 1$ BRANCH IF NOT FIRST ERROR 
1280 002366 104034 ERROR +34 
1281 002370 000401 BR 2$ ;BRANCH TO EXIT 
1282 002372 104035 1$: ERROR +35 
3 002374 000177 176726 2$: JMP @0L DPC ;RETURN TO TEST 
1285 -SBTTL COUNT PATTERN ERRORS IN PAR'S OR PDR'S 
1286 : “a ence gra pennys pp eye nete gg oy omen gen 
1287 :* THIS SUBROUTINE IS USED TO LOG AND REPORT THE COUNT PATTERN 
1288 :* ERRORS eow WHEN TESTING THE PAR'S AND PDR'S. THE 
1289 ie "LOGICAL OR" “LOGICAL AND'* OF VARIOUS DATA WILL BE 
1290 :* MAINTAINED A POLL OwS: 
1291 ie 1. ADDRESSES OF FAILED REGISTERS IN ‘ADDROR' AND *ADRAND * 
1292 is 2. DATA FETCHED FROM REGISTERS IN "DATAOR' AND ‘DATAND* 
1293 3* 3. PATTERN LOADED INTO REGISTERS IN ‘PATTOR’ AND ‘PATAND'. 
1294 EPI titi iii ti itttitiiitiiiiiiiiiiiiii iii rir irr 
1295 002400 PARCOUNT : 
1296 002400 012667 176722 MOV (KSP) + ,OLDPC ;SAVE RETURN ADDRESS IN CASE OF LOOP 
1297 002404 050067 176706 BIS RO, ADDROR ;LOGICAL OR OF FAILING ADDRESS 
1298 002410 7 176704 BIT ;LOGICAL AND FAILING ADDRESS 
1299 002414 050167 176672 BIS R1,PATTOR ;LOGICAL OR OF PATTERN 
1300 002420 030167 176670 BIT R1,PATAND ;LOGICAL AND OF PATTERN LOADED 
1301 002424 050267 176656 BIS R2.DATAOR ;LOGICAL OR OF DATA FETCHED 
1302 002430 030267 176654 BIT R2,DATAND ;LOGICAL AND OF DATA FETCHED 
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105767 176443 
001002 


000006 
003776 


002670 
177572 
60000 


1 
003122 
000340 


172340 
000010 
077406 
000200 
177600 
002626 
000020 
177572 
002660 
143776 
000040 
172356 
101371 
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000004 
177754 
000250 
000252 


177740 


000004 
172516 


000004 


SEQ 0028 


TSTB SERFLG ;SEE IF THIS IS THE FIRST ERROR 
BNE 1$ BRANCH IF NOT FIRST ERROR 
ERROR Ma 


BR ;BRANCH TO EXIT 
ERROR +37 

JMP @0L DPC ;RETURN TO TEST 
:sCALL: 


7 PC ,$SIZE 
:*SLSTAD whe CONTAIN: 


-- LAST VIRTUAL ADDRESS OF THE LAST BANK 
OP =~ LAST = ADDRESS OF AVAILABLE MEMORY 
SSB WILL CONTAIN THE LAST BANK iia SAF 
1T07 = a Ay T USE MEMORY cm 
T BE pe BEFORE TH CAL 
:*BIT15 = aa DON'T HAVE MEMORY MANAGEMENT OPTION 
DETERMINED BY ROUTINE 
jaSLSTAD WILL patton THE LAST AVAILABLE arn LOCATION 


e- HE STA 
@#ERRVEC,-(SP) ::SAVE PRESENT ERROR. VECTOR PS & PC 


@#ERRVEC+2,-(SP) 
SP,RO SAVE THE STACK POINTER 
33587 THE "ERRVEC PS TO THE PRESENT PS 
H OLD PSW AND PC ON STACK 


=PUS 
(SP)+, @FERRVEC +2: : SAVE HE PSW IN @#ERRVEC+2 
#3776.R1 SS 


(PC)+ 
200 


SCORE ‘BR IF NO 
WSKTNEX ,@MERRVEC; ; 
SRO 33kKT1 


uw 
#100000, $KT11 
AMGMERR | aAMMVE C SSE IN CASE OF ERROR 
#340 @eMMVEC+2 
j i: INITIALIZE FOR “PAR | LOADING 


(SP 

wIPARO. R2 ; ADDRESS OF FIRST 
T 'PAR.'S'’ AND EIGHT 'PDR.'S'’ 
#77866. ~40(R2) :ZPDR = ‘yp. READ/WRITE 
(SP), (R2)+ : PAR’ 
#200 (SP) : UPDATE FOR NEXT ° 
LOOP UNTIL ALL elenr wt LOADED 

#177600, -(R2) 3 SETUP KIPAR7 FOR I/0 

(R2) SSETUP KIPAR6 FOR TESTING. 
#28. AMERRVEC 7: CATCH TIMEOUT IF NO SR3 
#20 3 ENABLE 22 BIT 


. 3 MODE 
THIS PDP-11 HAS A SR3 REGISTER 
(SP) +, (SP)+ CLEAN OFF TE STAC--NO SR3 
a#SRO ME 


iT 
#SKTOUT ,@MERRVEC;;: 
be 144 es 
#40, ( Ro} 

ark IPAR7, (R2) L 

4$ *:NO=-TRY IT 
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002660 011202 
002662 005037 177572 
0004 


002666 

002670 042767 100000 177614 
002676 012737 002726 000004 
002704 005002 


002706 062701 004000 
002712 062702 000040 


022701 177776 

001370 

002726 162701 004000 
162702 000040 

002736 012737 002754 000004 

002744 012701 020000 
000776 

002754 162701 000002 
010006 

002762 012637 000006 


002766 000004 
002772 010167 000022 
002776 010267 000020 
00300. 


003012 005067 174750 


anh ah 8 od ae oe cd ed 
DONAUSWM— 


A fe be be pe he pe ee 
oo 


WW 
MM 
Nao— 


ye 
g 
oss 
z 


SBBVRG 


667 6 
33 003044 016767 174716 176260 
1066 00 
35 003056 005767 176252 
36 003062 


ek ek ed tk kd od 2 ot 6 at SS os at os 


WINWWWWNNIWNWNINWNLANWNWG 
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$KTOUT: MOV (R2) ,R2 ::GET LAST BANK+1 
CLR ayvsro +: TURN OFF MEMORY MANAGEMENT 
BR $SIZEX 
SKTNEX: BIC #100000, $KT11 :KT11 NON=EXISTENT 
SCORE: MOV #SCROUT. AMERRVEC! :SET FOR TIMEOUT 
CLR R2 UP BANK 
1$ ADD #4000,R1 : INCREMENT SY 1k 
ADD #40,R2 t:1K STEP 
TST (R15 +: TRAP ON TIME OUT 
CMP #177776,R1 *ZLAST ONE 
BNE 1$ ‘=NO=-TRY AGAIN 
$CROUT: SUB #4000,R1 
$SIZEX: SUB 


3zDROP BACK 
:;SET FOR TIMEOUT 
sZFIRST ADDRESS 


#40,R 
MOV #23, AAERRVEC 
MOV #20000,R1 


1$: TST (R1)+ 7zTEST AND STEP TO NEXT ADDRESS 
BR 1$ 5 ANOTHER 

2$: SUB #2,R1 DROP BACK 
MOV RO, SP SZRESTORE THE STACK 


MOV (SP)+ /@WERRVEC+2: : RESTORE ERROR VECTOR 
MOV (SP) +, @#ERRVEC 
ey ADDRESS 
ST BANK 


MOV (SP)+,R3 SZRESTORE R3 
MOV (SP)+,R2 : RESTORE R2 
MOV (SP)+,R1 RESTORE R1 
MOV (SP) +,RO 7 RESTORE RO 
Ve — ;CLEAR THE ERROR REGISTER 


$LSTAD: .WORD 0 ;;CONTAINS THE LAST ADDRESS 
BANK 


$LSTBK: .WORD 0 3:CONTAINS THE LAST 
-SBTT| ***** TRAP HANDLING ROUTINES ***** 
-SBTTL CPU TRAP HANDLER ROUTINE 


DLE A AEA RAE E ERE AEER ERE EEE RRR EEK EK 


: THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS THRU 
z+ "ERRVEC’' (LOC. 004). IF THIS SUBROUTINE IS ENTERED BY A 
ie SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A HALT IS 

ie EXECUTED. 
_ 
j  SosameNORRNIEAREERNENTEnInERENSEnENSNNNENoeineRetanneNNTEeS 
TIMERR: INC (PC)+ {MAKE FLAG ZERO IF, FIRST TIME THRU 
TIMFLG: .WORD 1 NEGATIVE ONE FOR ‘HAVE ENTERED’’ FLAG 
BEQ 1$ BRANCH IF FIRST TIME IN 
HALT :STOP! = I'VE ENTERED THIS ROUTINE 
A SECOND TIME BEFORE I FINISHED 
REPORTING THE FIRST ERROR. THE 
:SECOND ENTRY ADDRESS SHOULD BE ON 
THE KERNEL STACK 
1$ MOV (KSP)+,TRAPPC :SAVE PC+2 AT TIME OF ABORT 
MOV (KSP)+,TRAPPS  :SAVE PS AT TIME 


MOV CPUERR,PCPUER ;SAVE CPU 


MOV KSP ,WASR6 VALUE 
TST CPUE XP SEE IF ANY ERROR CONDITION WAS EXPECTED 
BEQ 2$ [BRANCH IF NO TRAP EXPECTED 


SEQ 0029 


E 
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CPU TRAP HANDLER ROUTINE SEQ 0030 
1337 003064 026767 176242 176242 CMP PCPUER,CPUEXP ;SEE IF EXPECTED CONDITION OCCURED 
1338 003072 001401 BEQ 3$ {BRANCH IF ERROR CODES MATCH 
1339 003074 104001 2$: ERROR +1 ;UNEXPECTED TRAP OR ABORT TO LOC. 4 
1340 003076 005067 174664 3$: CLR CPUERR ;CLEAR CPU ERROR REGISTER 
1341 003102 012767 177777 177716 MOV #-1,TIMFLG SMAKE FLAG NEGATIVE ONE FOR NEXT TIME 
1342 003110 016746 176146 MOV TRAPPS ,-(KSP) ;PUT PC & PS OF TRAP ON STACK 
1343 003114 016746 176140 MOV TRAPPC ,-(KSP) 

9 003120 000006 RTT ;RETURN FROM INTERRUPT OR ABORT 
1346 
1347 .SBTTL MEMORY MANAGEMENT TRAP HANDLER ROUTINE 
1348 DOO IOI III IID IOI III IIR RR IR Rit ik t 
1349 s@ 
1350 7* THIS SUBROUTINE —. JS ALL UNEXPECTED MEMORY MANAGEMENT 
1351 :* TRAPS AND ABORTS T “MMVEC'’ (LOC. 250). IF THIS SUBROUTINE IS 
1352 3* ENTERED BY A SECOND. TRAP BEF ORE THE FIRST HAS BEEN SERVICED, A 
leer 5 HALT IS EXECUTED. 

** 
1355 Tommie age nye nhac eee ape enemy er men ene ad 
1356 003122 005227 MGMERR: INC (PC) + sMAKE FLAG ZERO IF FIRST TIME T 
1357 003124 177777 MGMFLG: .WORD <1 [NEGATIVE ONE FOR ‘HAVE ENTERED’ FLAG 
1358 003126 001401 BEQ 1$ ;BRANCH IF FIRST TIME IN 
1359 003130 000000 HALT ;STOP! = I°VE ENTERED THIS ROUTINE 
1360 :A SECOND TIME BEFORE I FINISHED 
1361 ;REPORTING THE FIRST ERROR. THE 
1362 ;SECOND ENTRY ADDRESS SHOULD BE ON 
1363 + THE KERNEL STACK. 
1364 003132 012667 176122 1$: MOV (KSP) +, TRAPPC ;SAVE PC+2 AT TIME OF ABORT 
1365 003136 012667 176120 MOV (KSP)+,TRAPPS  ;SAVE PS AT TIME OF ABORT 
1366 003142 010667 176110 MOV KSP,WASR6 ;SAVE STACK POINTER VALUE 
1367 003146 016767 174420 176110 MOV SRO,WASSRO : SAVE CONTENTS OF KT STATUS REG. 0 
1368 003154 016767 174414 176104 MOV SR1,WASSR1 > SAVE CONTENTS OF KT STATUS REG. 1 
1369 003162 016767 174410 176100 MOV SR2 * WASSR2 ;SAVE CONTENTS OF KT STATUS REG. 2 
1370 003170 042767 160000 174374 BIC #160000, SRO ;CLEAR ERROR BITS IN STATUS REG 0 
1371 003176 104002 ERROR “UNEXPECTED T OR ABORT TO LOC. 250 
1372 003200 012767 177777 177716 MOV os -MGMF LG sMAKE FLAG NEGATIVE ONE FOR NEXT TIME 
1373 003206 016746 176050 MOV TRAPPS , = (KSP) ;PUT PC & PS OF TRAP ON STACK 
1374 003212 016746 176042 MOV TRAPPC ,~(KSP) 
i te 003216 000006 RTT ;RETURN FROM INTERRUPT OR ABORT. 
1377 -SBTTL CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 
1378 SLR RRR RRR ERE REAR ERE REE REAR ERE AERA EE 
1379 i* 
1380 3* THIS eying IS USED TO FORM AN 22-81T rere ADDRESS 
1381 3* (PBA) FROM THE 16-B1IT VIRTUAL me ae bo (VBA) AND THE APPROPRIATE 
1382 3* PAGE aa ae ay MREGISTER (PAR). THE SAME METHOD USED BY THE — 
1383 :* MANAGEMENT MO IS USED. VBA As: 13> SELECTS HICH PAR/PD 
1384 3* IS ps VBA <5:0>+PBA <5:0>, AND VBA <12:6> IS ADDED 
1385 :* T AR <15: 7005 TO GIVE PBA <21:6>. BITS <21:16> OF THE 
1386 :* PHYSICAL ADDRESS ARE LEFT IN LOC. *PBAHI * AND BIT S,< ttt 
1387 :* ARE LEFT IN LOC. ‘PBALO’’. THE PSW'S ‘‘CURRENT MODE'’ BITS 
1388 :* ARE USED TO SELECT THE KERNEL,SUPERVISOR OR USER PAR/PDR'S. 
1389 3* THE ROUTINE IS ENTERED WITH LOC. FVIRTI C CONTAINING THE 16-817 
if aa Mod VIRTUAL ADDRESS. 
1392 UTTUTTI CITT TTT TTT TTT ttt titi iti ii titi i iii iti t iti t iii i iii i 
i 


Ww 
» °) 
WG 


1414 003334 
1415 

1416 003340 
1417 003342 
1418 003346 


ADDRESS TO PHYSICAL ADDRESS 
FORMPA : ait 


012702 
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172340 
140000 


177640 
040000 
172240 


177761 


175772 
160000 
177766 
177774 
000006 
000077 
175742 


175736 


MACRO M1111 


174544 


174526 i$: 


2$: 


175774 
175766 
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#KIPARO,R2 LOAD ADDRESS OF FIRST KERNEL PAR IN R2 
#140000,PSw 7 IN USER MODE? 

1$ “BRANCH IF 
MUIPARO,R2 *LOAD ADDRESS OF FIRST USER PAR IN R2 

$ ‘BRANCH WHEN DONE 

#40000,PSw ZIN SUPERVISOR MODE? 
2$ “BRANCH IF NO 
#SIPARO,R2 : LOAD ADDRESS OF FIRST SUPERVISOR PAR IN R2 
VIRT1,RO VIRTUAL ADDR. (VBA) INTO RO 
#-14,R0 eer BITS <15:13> DOWN TO BITS <3:1> 
#177761,RO ‘MASK OF ALL BITS BUT BITS <3:1> 
RO,R2 [ADD OFFSET TO BASE PAR ADDRESS 

(R2) RO ‘GET BITS <15:00> FROM APPROPRIATE PAR 
RO.R “COPY PAR BITS <15:00> INTO R2 
VIRT1,PBALO [PUT VIRTUAL ADDR. IN LOC. ‘PBALO'' 
#160000,FBALO :CLEAR OFF BITS <15:13> OF ORIGINAL VBA 
-12,R2 ‘GET PAR <15:00> DOWN TO BITS <1:0> OF R2 
#177774 ,R2 :CLEAR OFF ALL BITS BUT BITS <1:0> 
#6,RO ‘SHIFT PAR<9:0> TO <15:6> OF RO 
#77,R0 ‘CLEAR BITS <5:0> OF RO 

RO, PBALO ZN EFFECT, ADD VBA<12:0> TO PAR<9:0> 


: (PAR<9:0> IN a it <15:6> OF RO) 
R2 ADD ANY CARRY TO R2 
R2,PRBAH]! ;PUT BITS <21: 16> OF PHYSICAL ADDR. 
PC ;RETURN TO PROGRAM 


IN PBAH] 
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eeeee 


020112 


020120 
020126 


02 
020214 


020222 


029304 
020310 
020314 


020000 


00 
112767 


012737 


00 
012767 
012767 


013746 


005067 
132767 


PRT A 
OF TEST 


001100 
001140 
001100 
taaby. 


035162 
000340 


000002 
020170 
020160 


177777 


020270 


000176 
000174 


000004 
160716 
000200 


MACRO M1111 
egeaeuk 
.SBTTL 
START: 
. SBTTL 
3:CLEAR THE 
MO 
CLR 
CMP 
ted 
000020 
000022 mov 
000030 MOV 
000032 MOV 
000034 MOV 
36 MOV 
000024 MOV 
000026 MOV 
014630 MOV 
CLR 
160775 
000014 MOV 
000016 MOV 
015020 MOV 
000010 MOV 
CLR 
MOV 
RTT 
014774 64$: MOV 
BR 
65$: ADD 
000010 66$: MOV 
CLR 
160672 MOV 
160666 MOV 
;;EQUAL TOA’ 
MOV 
104 MOV 
160676 MOV 
160672 MOV 
160662 CMP 
BNE 
BR 
67$: MOV 
RTI 
160642 68$: MOV 
160636 MOV 
69$: MOV 
CLR 
160723 BITB 


: INITIALIZE A FEW VECTORS 
#SSCOPE, 


~SBTTL 
-=20000 


G 
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waxee STARTING POINT OF TEST s##** 
aeeee = STARTING ADDRESS OF 200 ****#« 


INITIALIZE THE COMMON TAGS 
COMMON TAGS (SCMTAG) AREA 


MSCMTAG ,R6 iF IRST LOCATION TO BE CLEARED 
(R6)+ 73CLEAR MEMORY LOCATION 


HSWR,R6 ; ; DONE? 
-~6 ;;LOOP BACK IF NO 
#STACK,SP ;7,SETUP THE STACK POINTER 


aF#IOTVEC Atte VECTOR FOR SCOPE ROUTINE 
#340, aWlOTVEC+2 ;:LEVEL 7 
#SERROR , A#EMT VEC EMT VECTOR FOR ERROR ROUTINE 
od awEMTVEC+2 ;:LEVEL 7 

#STRAP , AA TRAPVEC : TRAP VECTOR FOR TRAP CALLS 
#340, aFTRAPVEC +2; LEVEL 7 
#SPWRDN , AAPWRVE C +s POWER FAILURE VECTOR 
#340, aMPWRVEC+2 ;:LEVEL 7 
SENDCT , SEOPCT coat eon END-OF —PROGRAM COUNTER 
SESCAPE we THE ESCAPE ON nes a ADDRESS 

ONE ERROR PER TEST 


MOVB #1 , SERMAX ALLOW 
fe AT THE ‘‘T=BIT'’ TRAP vecTOR. a LOAD LOCATION 'SRTRN’’, IN 
"END-OF -PASS** (SEOP) ROUTINE , WITH A 'RTI** OR ‘RIT 


#SRTRN @ATBITVEC 3;SET a BIT VECTOR 10 éaTRN 
#340, a#TBITVEC+2 {LEV VEL 7 

#RTI$RTRN 7zSET SRTRN TO A RTI 

#65$ , AARESVEC 23 TRY TO DO A RTT 
-(SP) UMMY PS 


#64$ ,-(SP) : ¢AND PC 
TRY THE R 
<0 acta TIRTT IS LEGAL--SET SRTRN TO A RTT 


#10,SP T ILLEGAL=-CLEAN OFF THE STACK 

#RESVEC+2, amesvit™ {RESTORE TRAP CATCHER 

$TBIT CLEAR ‘'T’’ BIT SWITCH 

#.,$LPADR :EINITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE — LOOP ADDRESS 


PERR 
3:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


1°", SETUP FOR A SOFTWARE SWITCH REGISTER. 
@¥ERR ERROR VECTOR 


VEC ,~(SP) 23 SAV VE 
#67, AHERRVEC SET UP ERROR VECTOR 
MDSWR, SWR :: SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP, DISPLAY A HARDWARE DISPLAY REGISTER 
#~1 ,aSWR [TRY TO REFERENCE HARDWARE SwWR 
69$ ‘BRANCH IF NO TIMEOUT TRAP OCCURRED 
: AND THE HARDWARE SWR IS NOT = -1 
68$ :BRANCH IF NO TIMEQUT 
#68$, (SP) ::SET UP FOR TRAP RETURN 


AMSWREG, SWR 32POINT TO SOFTWARE SwWR 
#DISPREG,DISPLAY 

(S$?) +, @MERRVEC 7 sRESTORE ERROR VECTOR 
SPASS CLEAR PASS COUNT 
MAPTSIZE ,SENVM i yest USER SIZE UNDER APT 


SEQ 0032 


CKKTAAO 11/44 MEM MGMT PRT A 
COMMON 


INITIALIZE THE 
020322 


020324 
020332 
1425 


020332 
020336 
340 


020346 
020350 
020354 
020360 


1426 

1427 020456 
1428 020456 
1429 2 


1436 020526 


001403 
012767 


104407 
000403 
112767 
000420 


0 
012767 


TAGS 


001246 


177777 
035116 
020416 
000042 
160656 
160542 


000001 


4 gin nt 
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SEQ 0033 
BEQ 70$ 77YES.USE NON-APT SWITCH 
160606 08 MOV #SSWREG, SWR ;ZNO,USE APT SWITCH REGISTER 
-SBTTL TYPE PROGRAM NAME 
zz TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC -1 :2FIR ST TIME? 
BNE 71$ sé CH IF NO 
000042 CMP MSENDAD , 8442 7 ;ACT=-11? 
3 71$ ioe a IF YES 
TYPE ,7e$ TYPE ASCIZ STRING 
-SBITL GET VALUE FOR SOF TWARE SWITCH ye 
TST as2 7 ARE WE RUNNING UNDER XXDP/ACT? 
BNE g 7 BRANCH IF YES 
000001 CMPB SENV,41 + ARE WE RUNNING UNDER APT? 
BEQ 73$ ;BRANCH IF YES 
000176 CMP SWR ,ASWREG ; 3 SOF TWARE SWITCH REG SELECTED? 
BNE 74$ ;BRANCH IF NO 
_ %$ SZGET SOF T=SWR SETTINGS 
160520 tet MOVB #1,$AUTOB 3zSET AUTO-MODE INDICATOR 
BR 71$ iGET OVER THE ASCIZ 
Tt -ASCIZ <CRLF>ACKKTAAO 11744 MEM MGMT PRT AM<CRLF> 
LOOP: 
MOV #STACK,KSP s INITIALIZE THE STACK POINTER 
157314 MOV #TIMERR,ERRVEC *LOAD CPU SERVICE ROUTINE INTO TRAP VECTOR 
157310 MOV #340, ERRVEC+2 2 SET NEW PS TO PRIORITY LEVEL 7-KERNEL 
157544 MOV #MGMERR -MAVEC ;LOAD MEMORY MANAGENT ROUTINE INTO VECTOR 
157540 MOV ey MMVEC +2 SET NEW PS TO PRIORITY LEVEL 7-KERNEL 
MOV #-1 “RO :PUT T -1 INTO RO TO pee ee FLAGS 
MOV RO, TIMFLG zs INITIALIZE CPU ERROR FLAG 
MOV RO .MGMFLG ; INITIALIZE MEMORY MANAGEMENT ERROR FLAG 
160536 MOV #340, TBITPS : INITIALIZE LOG THAT HOLDS T-BIT PSw 


I 
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GET VALUE FOR SOF TWARE SuITCH REGISTER 


1438 020534 005067 157032 CLR MMRO ;BE SURE MEM. MGMT IS OFF LJ START WITH 
1439 020540 005067 151752 CLR MMR3 ;MAKE SURE ALL MAPPING IS 


SEQ 0034 


J 
CKKTAAO 11/44 MEM MGMT PRT A MACRO M1111 26=SEP=79 12:27 PAGE 15 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


1441 020544 005067 157216 CLR CPUERR MAKE SURE CPU ERROR REG. IS CLEAR 
1442 020550 052767 one 99 161734 BIS #B1T7,$KT11 7SET M.M. FLAG FOR SIZING ROUTINE 


SEQ 0035 


1443 020556 004767 


SR PC,$SIZE RUN SIZING ROUTINE 
eae 020562 005067 157200 CLR CPUERR ;CLEAR CPU ERROR REG. AFTER SIZING 


CKKTAAO 11/44 MEM MGMT 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


020566 
1461 020570 
1462 020576 


1476 020636 
1477 
1483 


14 

1497 020710 
1498 020714 
1499 020716 
1500 020724 
1501 


001361 
012767 


062700 
001360 
012767 
005067 


020600 


177776 
177776 
177437 


000040 
000400 


020570 


020656 
157114 


157070 


010000 


020646 
157046 


MACRO M1111 


160312 


160244 


160234 


160164 


K 
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LNT NAL NGI NaL NaS NL NLN NL MeL No La Vela Nel Ne eNe/eNe/e\e/a\e/ 
“SBTTL GROUP 1 ADDRESS AND DATA PATHS TESTS 
bf Nel chal hatin ta Neh Nod Ned Nall Nol a Meal etal Heal Melctel Nal Mall sMeb tell a® 
MARBRBSBAAAALASLALALALASLELALALESESESELESE SES ERE RRS ERS R RRR RRR RASS SSS 
TRTEST 1 PSW PRIORITY BIT TEST 
** 
te THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <7:5> ‘PRIORITY BITS’ 
zs TO SEE THAT SOME OF THE BASIC ‘DATA PATH'’ LOGIC IS WORKING. 
** 
ETTITITiiitiiititiitiitititiiiiititiiiitiiititiiititiiiiriti its) 
TST1: SCOPE 
1$: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
CLR RO ZINITIALIZE RO WITH PRIORI TY= Q DATA 
2s: CLR R1 PREPARE R1 TO ACCEPT DATA 
MOV RO, a#PSW “WRITE PRIORITY BITS IN THE RPS 
MOV SwRI TREAD BACK THE LOW BYTE OF PSW 
BIC #177437,R1 MASK OFF EVERYTHING EXCEPT PRIORITY BITS 
CMP RO,R1 [WAS CORRECT PRIORITY SET IN THE PSW? 
BEQ 3$ BRANCH IF Y 
ERROR +3 :PRIORITY BITS SET WRONG IN PSW 
FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
:'BR 2$"' = 000770 
3$: ADD #40,RO SCHANGE DATA TO NEXT PRIORITY 
CMP #400,RO SHAVE PRIORITIES 0-7 ALL BEEN CHECKED? 
BNE BRANCH IF NO 
MOV #1$,SLPERR [RESET LOOP ON ERROR POINTER TO 1$ 
lak. tem at... Cle ce 
*TEST 2 PSW MODE BiT TEST 
is THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <15:12> ‘MODE BITS" 
zs TO FURTHER CHECK THE BASIC CPU DATA PATHS 
** 
PETIT Titi ti iii itiii tit tii tii tii iitiiitiii titi i iit iit i titi titi tit. 
7512: SCOPE 
1$: MOV #2$.S$LPERR ;SET LOOP ON ERROR POINTER TO 2$ 
CLR 0 SINITIALIZE RO WITH MODE BITS = 0000 
28: CLR PSW ZINITIALIZE PSW 
BIS RO.PSW BIT SET THE PSW MODE BITS WITH RO 
MOV WRI TREAD BACK THE CONTENTS OF _ THE PW 
BIC #007777.R1 MASK OFF EVERYTHING EXCEPT THE MODE BITS 
CMP RO,R1 WER MODE BITS SET CORRECTLY? 
BEQ 3$ BRANCH IF YES 
CLR PSwW ZCLEAR PSW FOR ERROR REPORT 
ERROR +4 ;MODE BITS SET WRONG IN PSW 
:FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
:"BR 28" = 000763 
3$: ADD #10000.R0 MODE BIT D 
_ BNE BRANCH IF STILL MORE COMBINATIONS 
*MOV #1$,$LPERR [RESET LOOP ON ERROR POINTER TO 1$ 
CLR PSW RESET PSwW BEFORE LEAVING 


SEQ 0036 





L 
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3 BYTE ADDRESSING TEST FOR PSW SEQ 0037 


1509 PERRET EAA REET EERE ERE ee 


:*TEST 3 BYTE ADDRESSING TEST FOR PSwW 


THIS TEST WRITES THE HIGH AND LOW BYTES OF THE PROCESSOR STATUS WORD 
AND READS THEM BACK TO BE SURE THEY CAN BE WRITTEN INDEPENDENTLY. 
THIS CHECKS THE PSW PORTION OF THE ADDRESS DETECTION LOGIC. 


MASASALAALAAAASLALALLLALAALALALAAAL AAAS RAL ELAR AR RRA LARA RAED ED SS 


#2$,SLPERR SET LOOP ON ERROR POINTER TO 2$ 
PSW [CLEAR THE PSW 
:PUT THE HIGH ere oF INTO RO 


ee eee ee 
Aw: £2 ee 
co 

Ww 


020740 160150 
157032 


ZGET DATA WRITTEN IN HIGH BYTE OF RO 
:WAS . WRITTEN TO CORRECTLY 


CLEAR "psu FOR ERROR REPORT 

;LOW BYTE EFFECTED BY WRITE TO HIGH BYTE OF PSW 
FOR TIGHTER SCOPE LOOP 

:REPLACE ERROR CALL WITH 

:‘BR 2$°* = 000760 


160102 : ° 3SET LOOP ON ERROR POINTER TO 4$ 
4$: PSW CLEAR THE PSW 
[PUT THE LOW BYTE DATA INTO RO 
[WRITE THE LOW BYTE OF THE PSW 
READ BACK THE giet ot “wes 
MASK OFF THE T BITS 
“WAS PSW WRITTEN. To CORRECTLY 
BRANCH IF YES 
:CLEAR PSW FOR ERROR REPORT 
THIGH BYTE EFFECTED BY WRITE TO LOW BYTE OF PSW 
FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
:'BR 28°" = 000736 


012767 020732 160036 5$: #1$,$LPERR RESET LOOP ON ERROR POINTER TO 1$ 


ad aa a ad ad cd ech a en ed 
WONAUSWN—O 
oO (=) 


RARAVYSSVSVRARAGLS 
MMNMNNNP 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


PPA AA AAI AIA II IAI II I TUT 


Ww 
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TEST AND SETUP OF STACK POINTERS SEQ 0038 
1550 LL RARER AREER EERE REET 
DeTEST 4 TEST AND SETUP OF STACK POINTERS 
: te 
:* THIS TEST SETS THE USER AND KERNEL STACK POINTERS FOR THE 
:* REST OF THE PROGRAM AND MAKES SURE THEY ARE INDEPENDENT OF 
7 EACH OTHER. KERNEL R6 IS SET TO 1100,SUPERVISOR R6 IS SET TO 700, 
- USER R6 IS SET TO 600, THEN KERNEL R6 IS READ TO BE SURE 
7” IT*S STILL 1100. THE SECOND PART OF THE TEST CHECKS TO SEE 
:* THAT THE ILLEGAL MODE(''10"') STACK POINTER IS * thes TO THE 
e* USER STACK POINTER, WITH MEMORY MANAGEMENT OFF 
:* 
EEE LOE LL ROLLIE IN 8 
021052 000004 TST4: SCOPE 
1551 021954 005037 177572 CLR arwRo sMAKE SURE M.M. IS OFF 
1552 021 005067 156712 CLR PSW :GO_TO KERNEL MOD 
1553 021064 012 001100 MOV #KERSTK,KSP + KERNEL STACK POINTER TO 1100 
1554 021070 012767 04 156700 MOV #40000, PSW TO SUPERVISOR MODE 
1555 021076 012706 000700 MOV #SUPSTK, SSP Ser SUPERVISOR STACK POINTER TO 700 
1556 021102 012767 140000 156666 MOV #140000 ,PSw TO USER MODE 
1557 021110 012706 000600 MOV #USESTK ,USP >SET -_ STACK POINTER TO 600 
1558 021114 005067 156656 CLR PSW BACK TO KERNEL MODE 
1559 021120 022706 001100 CMP #KERSTK ,KSP :IS KERNEL R6 STILL _1100? 
1560 021124 000404 BR 1$ CH TO NEXT PART OF TEST 
1561 021126 012700 001100 MOV #KERSTK,RO : SAVE DATA WRITTEN FOR ERROR REPORT 
1562 021132 010601 MOV KSP,R1 7SAVE DATA READ AFTER USER R6 WAS WRITTEN 
1563 021134 104006 ERROR +6 :KERNEL R6 CHANGED BY WRITING USER R6 
1564 FOR TIGHTER SCOPE LOOP 
ieee :REPLACE ERROR CALL WITH 
1567 021136 012767 021136 157744 1$: MOV bi SLPERR 3SET_LOOP ON ERROR POINTER TO 1$ 
1568 021144 5067 156626 CLR GO TO KERNAL MODE 
1569 021150 012746 177777 MOV 1 ~(KSP) 3PUSH A -1 ONTO STACK 
1570 021154 012767 040000 156614 MOV #40000,PSW :GO TO SUPERVISOR MODE 
1571 021162 012746 000001 MOV #1,~(SSP) ;PUSH A 1 ONTO THE STACK 
1572 021166 012767 140000 156602 MOV #140000 ,PSw :GO TO USER MODE 
1573 021174 005046 CLR ~ (USP) PUSH A ZERO ONTO a. has 
1574 021176 012767 100000 156572 MOV #100000 ,PSw PUT ILLEGAL MODE IN 
1575 021204 011600 MOV (SP) ,RO :PUT TOP OF STACK INTO RO 
1576 021206 001401 BEQ TST5 23WE*RE OK-GO TO NEXT TEST 
1577 021210 104 ERROR +40 SILLEGAL MODE NOT MAPPED TO USER MODE 
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021212 
1603 021214 
1604 021220 
1605 021226 
1606 34 


0212 
1607 021240 
1 021244 
1 021252 
1610 021256 
1611 021 
1612 
1613 021264 
1614 021270 
1615 021272 
1616 021276 
1617 021300 
1618 021306 


1619 021312 

021314 
1621 021316 
1086 021324 


162 
1624 021326 
1625 021332 
1626 


1627 


g 


1629 021334 
1630 021336 
yg 021342 

1632 021344 
1633 021350 
1634 021354 


156556 


000002 
172516 
021220 
157762 
003024 


000004 


157754 


157750 
157720 
172516 


MACRO M1111 
TEST AND SETUP OF STACK POINTERS 


157662 
000004 


160046 


157602 


000004 


N 
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MAAAREAASAAALALAALALALELALAAEAALALAR EAR AS AS ALAR RASA AAAS ARERR SEES 


THE NEXT SEVEN (7) TESTS WILL TRY TO_ADDRESS ALL OF THE 
MEMORY MANAGEMENT R at yt db ay (SRO=>SR3; 18D SPACE KERNEL, 
SUPERVISOR & USER PAR/PDR'S). 


4 

tt 

** 

** 

ee EVERY TIME A REGISTER TIMES OUT ITS ADDRESS WILL BE REPORTED. 
‘a AT THE END OF EACH TEST ¥ OF THE ADDRESSES THAT, TIMED 
* TS OF ‘‘AND-ING'' 
** 

-* 

* 

3* 


A_SUMMAR 
T TEST IS GIVEN. AND *OR=ING'' 


STUCK AT 0 OR 1. _ THE PAR/PDR ADDRESS AND KT MUX'S ARE THE 
THINGS BEING CHECKED. 


MARA AAALAALSZAALLSALALALALL LALLA R ALAS EASA RSA A RARER ARSED EDD 


J EAA ERE EEEEEEEEREEEREERERREEEERREEREEEEEEEEEERREEE 


;*TEST 5 SRO.SR1,SR2,SR3 TIMEOUT TEST 
zs THIS TEST ADDRESSES THE MEMORY MANAGEMENT STATUS REGISTERS 
zs AND 3. DATA WILL BE WRITTEN OR READ FROM THESE REGISTERS 
ze IN LATER TESTS, THIS TEST JUST CHECKS FOR A RESPONSE. 
** 
PTTITITIITTT TTI Ti Titi ti ititiiiiititiiiiiiiiiititiiiti iti t iti t tt 
TSTS: SCOPE 
CLR PSW :MAKE SURE KERNAL MODE IS. SELECTED 
1$: MOV #2$,SLPERR :SET LOOP ON ERROR. POINTER T 0 2$ 
MOV #6$, 044 [SET TIMEOUT VECTOR TO 6$ 
MOV #SRO,RO [LOAD RO WITH ADDRESS OF FIRST REG. 
MOV JRi [LOAD R1 WITH THE LOOP COUNT 
MOV #1 , ADRAND SINITIALIZE ‘‘AND'' OF ADDRS. LOC. 
CLR ADDROR SINITIALIZE ‘OR’ OF ADDRS. LOC. 
CLR T ZINITIALIZE ‘'TIMEQUTS'’ COUNTER 
2s: TST (RO) ZTRY ADDRESSING A STATUS REGISTER 
SIF IT TIMES TO 
3$: ADD #2,R0 [PUT NEXT ADDRESS IN RO 
S08 1,2$ [LOOP BACK TO 2$ UNTIL ALL TESTED 
MOV #SR3,RO [LOAD RO WITH THE ADDRESS OF SR3 
TST (RO) [TRY ADDRESSING SR3 
4$: MOV #1$,S$LPERR RESET LOOP ON ERROR POINTER TO 1$ 
TST TONUM [DID ANY OF THE STATUS REG.S TIMEOUT? 
BEQ 5$ BRANCH IF NO 
ERROR +10 [SUMMARY OF STATUS REG. TIMEOUTS 
5$: MOV #TIMERR, an TRESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
BR TST6 7:60 TO NEXT TEST 
6S: ADD #4 ,KSP SCLEAN UP THE STACK 
ERROR +7 ZONE OF THE STATUS REGS. TIMED OUT 
[FOR TIGHTER SCOPE LOOP 
ZREPLACE ERROR CALL WITH 
:'BR 2$'* = 000756 
MOV RO,R2 TLOAD THE ADDRESS THAT TIMED OUT INTO R2 
BIS R2.ADDROR :OR": IT WITH OTHER ADDRS. THAT TIMED OUT 
COM R2 SAND’ IT WITH OTHER ADDRS. THAT TIMED QOuT 
BIC R2, ADRAND 
INC TONUM ; INCREMENT THE TIMEQUT COUNTER 
BIT #SR3,RO [TEST FOR LAST REGISTER 


SEQ 0039 


B 4 
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TS SRO,SR1,SR2, SR3 1 TIMEOUT TEST 


021360 001347 BNE 4$ 3SR3_ IS LAST;GO TO FINAL ERROR REPORT 
021362 000740 BR 3$ BRANCH BACK TO TEST THE NEXT ADDR. 


fara caecn las Guan tern teat Ge 
SSTEST 6 L_I@D SPACE PAR'S TIMEOUT TEST 
: THIS TEST” ADDRESSES S PL (16) KERNEL PAGE ADDRESS 
REGISTERS (KIPARO-KIPAR7 AND KDPARO-KDPAR7) 
AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES. 


MASAARARAAAALALASALLAALLAAALA LARA ALARA EAR RAL A RRR RRA RA RAR RAR RRA S SS 


*? 
-* 
S16: 
021430 $: ;SET LOOP ON ERROR POINTER TO 2$ 
021466 WSS a4 3SET TIMEOUT VECTOR TO 5$ 

172340 [LOAD RO WITH ADDRESS OF A veg REG 
000020 #20,R1 COUNT (16) 


2 sk ITH LOC 
177777 1 ADRAND INITIALIZE ‘AND ADDR. LOC 
157672 : DR. LOC. 
157644 S INITIALIZE ‘‘TIMEOUTS'' COUNTER 
: :TRY ADDRESSING A REGISTER 
IF IT TIMES OUT, WILL GO TO S$ 
000002 : ‘ ;PUT_NEXT REGISTER” ADDRESS IN RO 


021366 157442 . ; OOP ON ERROR 
157622 TONUM DID ANY OF THE REGISTES TIME OUT? 
s BRANCH IF NO 


1 ; SUMMARY OF age ing hap at 
003024 000004 : - 4 ;REST NORMAL CPU TRAP ROUTINE ADDRESS 


000004 : “CLEAN UP THE STACK 
021472 7 TONE OF THE REGISTER TIMED OUT 
;FOR TIGHTER SCOPE LOOP, REPLACE ERROR 
[CALL WITH ° 000756 
021474 010002 RO,R2 ;LOAD, THE ADDRESS THAT TIMED OUT INTO R2 
157614 R2. ADDROR :"OR'' IT WITH OTHER ADDRS. THAT TIMED OUT 
R2 ‘"'AND'' IT WITH OTHER ADDRS. THAT TIMED OUT 
157610 R2, ADRAND 


157560 TONUM ; INCREMENT THE TIMEOUT COUNTER 
BR 3$ BRANCH BACK TO TEST THE NEXT REGISTER 


Bie page egy gece apc na am ne ae 
KERNEL 18D SPACE PDR'S TIMEOUT TEST 
THIS TEST ADDRESSES THE gy (16) KERNEL PAGE DESCRIPTOR 
REGISTERS (KIPARO-KIPAR7 AND 0-KDPAR7) 
AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES. 


SEERA AAAEAAEAAAAEAEAERERAKAARAEARAAARAEAAAARAAEARARERERERREEEEEE 


021562 157362 : #2$,,SLPERR ;SET LOOP ON ERROR POINTER TO 2$ 
000004 W5$ ,aN4 et TIMEOUT VECTOR TO 5$ 
OAD RO WITH yoy: AS Avil REG 


” ‘LOAD ITH L 
157546 1 ,ADRAND ; ZE *‘AND’' OF ADDR. LOC 
; INITIALIZE ADR. LOC. 
157512 ONUM : INITIALIZE *‘TIMEOQUTS’’ COUNTER 


000002 
R1,2$ ;LOOP BACK TO 2$ UNTIL ALL TESTED 
021572 012767 021520 157310 #1$,$LPERR ;RESET LOOP ON ERROR POINTER TC 1$ 
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17 KERNE 


1649 
1653 


0. 
1654 
0 


1655 
1659 


L 


21650 


021714 
021716 


eB of 


157470 


003024 
000004 


157462 


157456 
157426 


021714 


000002 
021652 
157336 
003024 
000004 


157330 


157324 
157274 


C 4 
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18D SPACE PDR'S TIMEOUT TEST 


157230 
000004 


157414 


157156 


000004 


TST TONUM :DID ANY OF THE REGISTES TIME OUT? 
BEQ 4$ ‘BRANCH IF NO 
ERROR +10 SUMMARY OF REGISTER TIMEOUTS 
4$: MOV ATIMERR, a6 SRESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
BR TST10  ;BRANCH TO NEXT TEST 
5$: ADD #4 ,.KSP ‘CLEAN UP THE STACK 
ERROR +7 TONE OF THE REGISTER TIMED OUT 
FOR TIGHTER SCOPE LOOP, REPLACE ERROR 
[CALL WITH ‘BR 2$'' = 000756 
MOV RO,R2 ‘LOAD THE ADDRESS THAT TIMED OUT INTO R2 
BIS R2.ADDROR 370R" IT WITH OTHER ADDRS. THAT TIMED OUT 
COM R2 S"'AND'' IT WITH OTHER ADDRS. THAT TIMED OUT 
BIC R2, ADRAND 
INC TONUM ; INCREMENT THE TIMEOUT COUNTER 
BR 3$ SBRANCH BACK TO TEST THE NEXT REGISTER 
MeRBRRABASBAASALALALALASLLALESS ESE SER SRE RE RRR ARR RRR RRR RRR RRR RRR RRA SS 
TSTEST 10 SUPERVISOR I@D SPACE PAR'S TIMEOUT TEST 
ie THIS TEST ADDRESSES THE SIXTEEN (16) SUPERVISOR PAGE ADDRESS 
* REGISTERS (SIPARO-SIPAR7? AND SDPARO-SDPAR7) 
* AND CHECKS THAT SORE THING RESPONDS TO THEIR ADDRESSES. 
J LARA AR AAA AREER RARERAEAKRARREERAAAEARARARAEAEEEAEERERRER EEE 
1$T10: SCOPE 
1$: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
MOV #5$,a86 :SET TIMEOUT VECTOR TO 5$ 
MOV #SIPARO,RO [LOAD RO WITH ADDRESS OF FIRST REG 
MOV #20,R1 [LOAD R1 WITH LOOP COUNT (16) 
MOV #~1 .ADRAND S INITIALIZE '‘AND'' OF ADDR. LOC 
CLR ADDROR INITIALIZE ‘OR'' OF ADR. 
CLR TONUM ZINITIALIZE ‘‘TIMEOUTS'' COUNTER 
2s: TST (RO) STRY ADDRESSING A REGISTER 
‘IF IT TIMES OUT, WILL GO TO 5$ 
3s: ADD #2,R0 ‘PUT NEXT REGISTER ADDRESS IN RO 
SOB R1.2$ SLOOP BACK TO 2$ UNTIL ALL TESTED 
MOV #1$,$LPERR [RESET LOOP ON ERROR POINTER TO 1$ 
TST TONUM ‘DID ANY OF THE REGISTES TIME OUT? 
BEQ 4$ ‘BRANCH IF NO 
ERROR +10 > SUMMARY OF REGISTER | TIMEOUTS 
4$: MOV ATIMERR, a4 ; RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
BR TST11 BRANCH TO NEXT TEST 
S$: ADD #4 ,KSP ; CLEAN UP THE STACK 
ERROR +7 TONE OF THE REGISTER TIMED OUT 
FOR TIGHTER SCOPE LOOP, REPLACE ERROR 
[CALL WITH ‘BR 2$"° = 000756 
MOV RO,R2 ZLOAD THE ADDRESS THAT TIMED OUT INTO R2 
BIS R2.ADDROR :"OR'' IT WITH OTHER ADDRS. THAT TIMED OUT 
COM R2 ‘"AND'' IT WITH OTHER ADDRS. THAT TIMED OuT 
BIC R2, ADRAND 
INC TONUM ; INCREMENT THE TIMEOUT COUNTER 
BR 3$ ‘BRANCH BACK TO TEST THE NEXT REGISTER 
RARER AEAEAAAAKEAAEEAKAAKRAAEEAARAAEEKAERAEARAAAAAARARREEEKEEEE 
TEST " SUPERVISOR I1&D SPACE PDR'S TIMEOUT TEST 
= THIS TEST ADDRESSES THE SIXTEEN (16) SUPERVISOR PAGE DESCRIPTOR 
REGISTERS (SIPARO-SIPAR7? AND SDPARO-SDPAR7) 


® 
* CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES. 


FOU pM ann: Me Rn hate ae Rane aoe Ms Big neni < 





awe 
111 


1660 


1661 
1665 


0 
1666 
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022110 


022112 


0 
022242 
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SCOPE 


#2$,$LPERR 

"5S, af 

#SIPDRO,RO 

#20,R1 

#~1 , ADRAND 

ADDROR 

TONUM 

(RO) 

#2,R0 

R1,2$ 

#1$,$LPERR 
ONUM 


SET LOOP ON ERROR y's TO 2$ 
:SET TIMEOUT VECTOR T 

;LOAD RO WITH ADDRESS OF FIRST REG 
; OUNT (16) 


F IT TIMES OUT, WILL GO TO 5$ 
PUT NEXT REGISTER” ADDRESS IN RO 


ON ERROR 
:DID ANY iy THE REGISTES TIME OUT? 


‘BRANCH IF NO 

SUMMARY OF REGISTER TIMEOUTS 

‘RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
+ BRANCH TO NEXT TEST 

‘CLEAN UP THE STACK 

[ONE OF THE REGISTER TIMED OU 

‘FOR TIGHTER SCOPE LOOP REPLACE ERROR 
[CALL WITH 'BR 2$'' = 000756 
ZLOAD THE ADDRESS THAT TIMED OUT INTO R2 
:"OR'' IT WITH OTHER ADDRS. THAT TIMED OUT 
S""AND'’ IT WITH OTHER ADDRS. THAT TIMED OUT 


; INCREMENT THE TIMEOUT COUNTER 
BRANCH BACK TO TEST THE NEXT REGISTER 


ceresT 12 USER 18D SPACE PAR’S TIOUT TEST. 


USER I@D SPACE PAR*S TIMEOUT 


T 12 
THIS 


TEST 
TEST ADDRESSES THE SIXTEEN (16) USER_PAGE ADDRESS 
REGISTERS (UIPARO-UIPAR7 AND UDPARO-UDPAR7) 


AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES. 


SCOPE 


PRT A MACRO M1111 
SPACE PDR‘'S TIMEOUT TEST 
TST11: 
022046 157076 1$: 
022104. 000004 
Vr seoh 
177777 +=157262 
157254 
157226 
2$: 
000002 3$: 
022004 157024 
157204 
003024 000004 4$: 
000004 5$: 
157176 
157172 
157142 
s*TES 
3* 
te 
: 
TéT12: 
022200 156744 1$: 
022236 000004 
177640 
20 
177777 157130 
157122 
157074 
2$: 
000002 3$: 
022136 156672 
157052 
003024 000004 4$: 
000004 5$: 


#2$,SLPERR 
#5$ ,aN4 
#UIPARO,RO 
#2 


#2,R0 

R1,2$ 
#1$,$LPERR 
TONUM 

4$ 

+10 
ATIMERR, a6 
TST13 


#4 ,KSP 


+7 


SEERA AREAAARERREARAAAEEAEKEEAEEAAAEEAEARAERAEKEEAERERRKEEKEKEE 


SET LOOP ON ERROR POINTER TO 2$ 
SET TIMEOUT VECTOR TO 5$ 

; LOAD RO WITH ADDRESS OF FIRST REG 
LOOP COUNT (16) 

* OF ~ wi Shi 


:DID ANY OF THE REGISTES TIME OUT? 
BRANCH IF NO 


[SUMMARY OF REGISTER TIMEOUTS 

;REST ORE NORMAL CPU TRAP ROUTINE ADDRESS 
+ BRANCH TO NEXT TEST 

[CLEAN UP THE STACK 

TONE OF THE REGISTER TIMED OU 

FOR TIGHTER SCOPE LOOP REPLACE ERROR 
[CALL WITH ‘BR 2$'' = 006756 


SEQ 0042 


E 4 
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T12 USER I8D SPACE PAR'S TIMEOUT TEST SEQ 0043 
022244 010002 MOV RO.R2 ;LOAD THE ADDRESS THAT TIMED OUT INTO R2 
022246 050267 157044 BIS R2,ADDROR 7" ‘OR'' IT WITH OTHER ADDRS. THAT TIMED OUT 
022252 005102 COM R2 ;"'AND’’ IT WITH OTHER ADDRS. THAT TIMED OuT 
022254 040267 157040 BIC R2,ADRAND 
022260 005267 157010 INC TONUM ; INCREMENT THE TIMEOUT COUNTER 
? 022264 000746 BR 3$ [BRANCH BACK TO TEST THE NEXT REGISTER 
1671 a” sam fee wee tera tweet ee 
TATEST 13 SER 18D SPACE PDR'S TIMEOUT 


TEST 
THIS TEST ADDRESSES THE SIXTEEN (16) USER PAGE DESCRIPTOR 
REGISTERS (UIPARO-UIPAR7 AND UDPARO-UDPAR7) 

AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES. 


MOR ARAAAASAAAAASLALAAALALAAALALAL ELAS ALAA SAAR AAAS RRR AAR A ARRAS ES SO | 


3* 

te 

i 
TS113: SCOPE 
1$: MOV 


022266 000004 
1672 022270 012767 022332 156612 #2$,SLPERR :SET LOOP ON ERROR. POINTER TO 2$ 
022276 012737 022370 000004 MOV #5$.ae4 ise! TIMEOUT VECTOR TO 5$ 
012700 177600 MOV #UIPDRO, RO OAD RO WITH ADDRESS OF FIRST REG 
022310 012701 000020 MOV #20,R1 st OAD R1 WITH LOOP COUNT (16) 
022314 012767 177777 156776 MOV #-1,ADRAND SORITIALIZE “"AND'' OF ADDR. LOC 
022322 005067 156770 CLR ADDROR INITIALIZE ‘OR OF ADR. LOC. 
022326 005067 156742 CLR TONUM S INITIALIZE ‘‘TIMEOUTS'’ COUNTER 
022332 005710 2$: TST (RO) STRY ADDRESSING A REGISTER 
[IF IT TIMES OUT, WILL GO TO 5$ 
022334 062700 000002 38: ADD #2,RO ;PUT_NEXT REGISTER ADDRESS IN RO 
022340 077104 SOB R1.2$ -LOOP BACK TO 2$ UNTIL ALL TESTED 
022342 012767 022270 156540 MOV #1$,$LPERR [RESET LOOP ON ERROR POINTER TO 1$ 
022350 005767 156720 TST TONUM ‘DID ANY OF THE REGISTES TIME OUT? 
022354 001401 BEQ 4$ [BRANCH IF NO 
022356 104010 ERROR +10 > SUMMARY OF REGISTER TIMEOUTS 
022360 012737 003024 000004 4$: MOV ATIMERR, ar SRESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
022366 000414 BR TST14 + BRANCH TO NEXT | TEST 
022370 062706 000004 5$: ADD #4 ,KSP [CLEAN UP THE STA 
022374 104007 ERROR +7 [ONE OF THE REGISTER TIMED 
‘FOR TIGHTER SCOPE LOOP REPLACE ERROR 
[CALL WITH 'BR 2$'' = 000756 
022376 010002 MOV RO,R2 ‘LOAD THE ADDRESS THAT TIMED OUT INTO R2 
022400 050267 156712 BIS R2.ADDROR ;"OR' IT WITH OTHER ADDRS. THAT TIMED OUT 
022404 005102 COM R2 ‘"’AND'' IT WITH OTHER ADDRS. THAT TIMED OUT 
022406 040267 156706 BIC R2, ADRAND 
022412 005267 156656 INC TONUM y INCREMENT THE TIMEOUT COUNTER 
‘ 022416 000746 BR 3$ [BRANCH BACK TO TEST THE NEXT REGISTER 
1686 LLU REE REET ERE EE 
T*TEST 14 MMRO(15:13) BIT TEST & MMR2 TEST 


THIS TEST CHECKS BITS <15:13> OF MEMORY MANAGEMENT 
poo ae ie . TO SEE THAT EACH CAN BE SET AND CLEARED 
THA eis WILL CLEAR ALL OF THEM. A TEST 


Z2 

te 

te 

- 

te 

ie SRO MUX AND THE KTMUX. THE REST OF THE BITS IN 
3¢ SRO WILL BE CHECKED LATER. 

it ALSO CHECK THAT SR2 IS TRACKING WITH MEM. MGMT. 
? OFF BUT LOCKS UP WHEN ANY OF SRO ERROR BITS SET. 
7§ 


'WEARRRAARARASAAAASZALERSERARASA RR RAR RARER RRR RRR RRR RRR RRR RRA RASS SS SS | 


» 022420 000004 114: SCOPE 
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MRO ( 
1688 022422 


1693 022440 
1694 
1695 
1696 
1697 022442 


21 
22 022542 
23 022544 


022562 
1743 022564 


012767 


005067 


15:13) BIT Mrest & MR2 T 


F 4 
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#SRO,RO 
#160000, (RO) 
(RO) .R1 

2s 

+11 


#2$,$LPERR 
SR2,WASSR2 


#2$,R1 
R1,WASSR2 
3$ 

+21 


44% ,SLPERR 
Pt 


#5$,R4 
SR2,WASSR2 
R4 ,WASSR2 


7$ 
+27 


R| 

R3,4$ 

(RO) 
#1$,$LPERR 


ae ad ADDRESS OF SRO INTO RO 

;SET BITS er ine IN SRO (ERROR BITS) 
SSUE AND ' " SIGNAL 

“READ SRO INTO RI TO SEE IF CLEAR 


BRANCH IF SRO<15:13> CLEARED BY “‘INIT"’ 


:SRO<1S: 13> NOT CLEARED BY A ‘RESET"’ 
OR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

;‘BR 1$°* = 000770 


; SET LOOP ON ERROR POINTER TO 2$ 
;READ CONTENTS OF SR 

;LOAD pha: CONTENTS INTO R1 

iIS on TRACKING? 

BRANCH IF YES 

;SR2 NOT ‘TRACKING’ VIRTUAL ADDRESSES 
FOR TIGHTER SCOPE LOOP 

sREPLACE ERROR CALL WITH 

;'BR 2$"* = 000767 

7 SET LOOP ON ERROR POINTER TO 4$ 

;PUT DATA TO BE WRITTEN IN R1 

;SETUP R3 AS A LOOP COUNTER 

CLEAR SRO 

SET ONE OF an A ae BITS IN SRO 
;READ SRO_IN 

:DiD RIGHT ERROR BIT GET SET? 

BRANCH IF YES 

:BITS WERE SET WRONG IN SRO 

FOR TIGHTER SCOPE LOOP 

:REPLACE, E ERROR CALL WITH 


0772 
; LOAD EXPECTED CONTENTS OF SR2 IN R4 
READ SR2 


:DID SR2 LOCK UP WHEN ERROR 
BIT SET IN SR1? 

“BRANCH IF YES 

;SR2 DID NOT LOCK UP 

:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
;'BR 48" = 000761 


> CHANGE DATA TO CHECK NEXT ERROR BIT 
SLOOP BACK UNTIL <15:13> ALL TESTED 
CLEAR SRO BEFORE LEAVING 

;RESET LOOP ON ERROR POINTER TO 1$ 


WEROARARESASAAASZALLELER SEALE SESE SEAR RSE SERRA ASA RAR RRR RRR RRR RASS SD OD | 


SRO & PSwW DUAL ADDRESSING TEST 


THIS TEST CHECKS MORE OF THE ADDRESS DETECTION LOGIC BY 
VERIFYING THAT Wel REGISTER 0 IS NOT EFFECTED BY WRITING 


TO THE PSW AND THA 


IS NOT EFFECTED BY WRITING TO ITS HIS IS T 
SEE IF ADJACENT OUTPUTS ARE SHORTED ON THE ADDRESS DET. 


—MOABRARBAAASAARRSSSLSALESERSARAAS ARERR REESE R RRR RR RRR RRR RA RRR RRR RRR RRA OB 


A MACRO mitt 
177572 1$: MOV 
160000 MOV 
RESET 
MOV 
BEQ 
ERROR 
022450 156440 MOV 
155122 156612 28: MOV 
022450 MOV 
156602 CMP 
BEQ 
ERROR 
022510 156410 3$: MOV 
100000 MOV 
000003 MOV 
4$: CLR 
S$: BIS 
MOV 
CMP 
BEG 
ERROR 
022512 6$: MOV 
155042 156532 MOV 
156526 C 
BEQ 
ERROR 
7$: ROR 
SOB 
CLR 
022422 156326 MOV 
SeTEST 15 
.. 
= 
1S115: SCOPE 
155206 1$: CLR 


PSwW 


T THE LOW BYTE Sal at or 0 . 
LOGIC. 


;CLEAR THE PSwW 


SEQ 0044 
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SRO & PSwW DUAL ADDRESSING TEST SEQ 0045 
1744 022570 005067 154776 CLR SRO CLEAR STATUS REGISTER 0 
1745 022574 012737 000340 177776 MOV #340, a4PSW SET PRIORITY 7 IN LOW BYTE OF PSw 
1746 022602 016700 154764 MOV $29 ,R0 READ STATUS REGISTER 0 
174? 022606 001401 BEQ 2$ ;BRANCH IF IT WAS STILL 0 
1748 022610 104013 ERROR +13 :SRO EFFECTED BY A by TO THE PSwW 
1749 FOR TIGHTER SCOPE L 
1750 : REPLACE ERROR CALL min 
1751 ; ;'BR 1$°* = 000767 
1752 022612 005067 154754 2s: CLR SRO BE SURE SRO IS 0 BEFORE LEAVING 


1753 022616 005067 155154 CLR PSw ;BE SURE PSW IS 0 BEFORE LEAVING 
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T15 SRO & PSwW DUAL ADDRESSING TEST 


1767 
1768 


022622 
769 022624 
770 022630 
771 022634 
acs 022642 


784 022702 
785 022710 


022734 
022740 
022746 
022752 


1806 023004 
1807 023010 
1808 

1809 023012 
1810 023014 


012737 
012703 


177574 


022672 


022710 
177572 
040000 


011027 


177572 
022746 
177574 


171000 
023000 
177573 
001343 


006411 


MACRO M1111 


156216 


156200 


156142 


156110 
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cerEST 16 BIT TEST OF MEMORY MANAGMENT REGISTER 1 


EST OF 


MEMORY MANAGMENT REGISTER 1 


*TEST 16 BIT T 
:=THIS TEST WILL CAUSE BITS IN MARI TO BE LOCKED BY SETTING BITS <15:13> 
*IN MARO. THE 


;* INCREMENTS OR AUTO ae eG A REGISTER. 


;*FIRST AND 


REGISTER ONL 
YTE IS 


Y GETS CLOCKED ON AN INSTRUCTION THAT AUTO 
THE LOWER BYTE IS ALWAYS CLOCKED 
ONLY CLOCKED IF BOTH SOURCE AND DESTINATION 


THE 
**AUTO INCREMENT OR oe A REGISTER. 
7*ALL COUNTS (4#1,-1,42,-2) T 


: SAND LOW ye ALL REGISTER NUMBERS 
THE BITS THAT HOLD THE REGI 


*R6'S, 
{WARE TESTED; 
>*LOW BYTES, 


Est TITstttittrit itt iii itirttii titi itt i titi ttt i titi iii tit ii 


TST16: 
20$: 


11$: 


12$: 


—d ad 
Wwe 


2s: 
14$: 


3$: 
15$: 


SCOPE 


T ENOUGH 


HAT CAN BE GENERATED ARE CLOCKED INTO THE HIGH 
ARE GENERATED, INCLUDING ALL THREE 
STER NUMBER IN BOTH BYTES 


“WOME VER. ALL REGISTER NUMBERS ARE CLOCKED INTO BOTH HIGH AND 
ARE USED TO TEST THE LOGIC. 


AAR RO :PUT ADDRESS OF MMR1 INTO RO 

#B1T13,R4 SSET READ ONLY BIT IN RG 

#11$,$LPERR :SET LOOP ON ERROR POINTER TO 11$ 

#B1T15, a#MMRO :LOCK UP re LOW BYTE 027, HIGH BYTE 027 

#013427,R3 :PUT EXPECTED DATA IN R3 

(RO) ,R1 “READ MMR1 INTO R1 

R1,R3 [SEE IF DATA MATCHES 

10$ ‘BRANCH IF DATA MATCHES 

+14 [MMR1 DID NOT TRACK PROPERLY 

#12$,$LPERR ie! yf O08 ON ERROR POINTER TO 12% 

(RO) ,R1 [SEE IF MMR1 IS CLEARED 

1$ “BRANCH IF MMR] IS ZERO 

+11 :CAN'T CLEAR MMR} 

#13$,SLPERR T LOOP ON ERROR POINTER TO 13$ 

ARO ,R “PUT ADDRESS OF MARO INTO R2 

#B1T14,(R2)+  :LOCK UP MMR1-LOWER BYTE O85 

male : UPPER BYTE 022-wORD 011027 

#011027,R3 SPUT EXPECTED DATA IN R3 

R1,R3 [SEE IF DATA MATCHES 

2$ ‘BRANCH IF DATA MATCHES 

+14 *MMR1 DID NOT TRACK PROPERLY 

aeRO [CLEAR MRO 

#14$,$LPERR ‘SET LOOP ON ERROR POINTER TO 14$ 

aR +2, R2 ‘PUT ADDRESS OF MMRO PLUS 2 IN R2 

R4,~(R2d [LOCK UP MMR1-LOWER BYTE 000 
[UPPER BYTE 362-WORD 171000 

(RO) ,R1 [READ MMR1 

#171000,R3 [PUT EXPECTED DATA IN R3 

R1,R3 SSEE IF DATA MATCHES 

3$ ‘BRANCH IF DATA MATCHES 

+14 :MOR | DID NOT TRACK PROPERLY 

(R2) “CLEAR MMRO 

#15$,$LPERR ‘SET LOOP ON ERROR POINTER 10 15% 

#MMRO+7 RS ‘PUT ADDRESS OF MMRO'S UPPER BYTE IN R5 

#READON+1,R1 PUT ADDRESS OF READ ONLY BIT <13> IN R1 

(R1)+, (R5)+ “LOCK UP MMR1-LOWER BYTE 011 


(RO) ,R1 
#006411,R3 


“UPPER BYTE 015-wWORD 006411 
;READ MARI 
[PUT EXPECTED DATA IN R3 


SFQ 0046 
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020103 :SEE IF DATA MATCHES 
4$ ‘BRANCH IF DATA MATCHES 
[MMR1 DID NOT TRACK PROPERLY 
: =CLEAR MMRO 
023036 156052 423 SLPERR [SET LOOP ON ERROR POINTER TO 16$ 
012701 177574 : AMMRO+2, ZPUT ADDRESS OF MMRO'S UPPER BYTE 
012705 001344 AREADON+2,R5 ‘plus DW RS READ ONLY BIT <13> 
114541 -(R5),-(R1) “LOCK UP MMRI-LOWER BYTE 375 
; UPPER verre 371-WORD 174775 


(RO) ,R1 
174775 #174075, R3 PUT EXPECTED DATA IN R3 
5s" 


+14 “MR DID NOT TRACK PROPERLY 
: (R2) : CLEAR MRO 
023106 156014 #17$,$LPERR 
040000 


Co 00 C0 C0 00 CD CO CO CD 
Ee ee 
OONAUSWH— 


— Sa SS Ss Ss YS YS SI LG 


& 


SSET LOOP ON ERROR POINTER TO 17$ 
177776 #40000, a4PSW § :SET SUPERVISOR MODE 
001176 : “SAVE SUPERVISOR STACK POINTER 
177574 : [PUT ADDRESS OF MMRO+2 IN SSP 
040000 #40000,-(SSP)  :LOCK up MPR -LOWER BYTE 027 
[UPPER BYTE 366-WORD 173027 
*READ rele 


(RO) ,R1 
173027 #173027 ,R3 ;PUT EXPECTED DATA IN R3 
R1,R3 SEE IF DATA MATCHES 
rs BRANCH IF DATA MATCHES 
+14 :MMR1 DID NOT TRACK PROPERLY 
156040 : —" 23S? Hatt yp THE SUPERVISOR STACK POINTER 


R2) 0 
023160 155742 #18$,SLPERR SET LOOP ON ERROR POINTER TO 18$ 
140000 177776 #140000, aaPSW SET USER MODE 
001176 USP ,a#STMPO ;SAVE USER STACK a ie 1 
1844 023160 177572 : #MPARO USP ; OF MMRO | 
My on 023164 100000 #100000, (USP)+ ;LO OWER BYTE “O07 


: UPPER BYTE 026-wORD 013027 
;READ MR 


(RO) ,R1 

013027 #013027,R3 :PUT EXPECTED DATA _IN R3 

R1,R3 SEE IF DATA MATCHES 

BRANCH IF DATA MATCHES 

+14 :MMR1 DID NOT TRACK PROPERLY 
155766 : $TMPO,USP RESTORE THE USER STACK POINTER 
177776 aAPSw :GO BACK TO KERNAL MODE 
177572 aaMmrRod ;LET ALL_MEM MGT REG'S TRACK 
1855 023220 012767 022624 #20$.$LPERR :SET LOOP ON ERROR POINTER TO START OF TEST 


1847 023170 
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K 
7 BIT 
1864 


1892 023342 


11 
012767 


172516 
000001 


000006 
023262 


000077 
023312 


023332 


023230 


MACRO M1111 
TEST OF MEMORY MANAGEMENT REGISTER 


155626 


155576 


155556 


155540 
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'MmARRRBAARAARALASALAAALASLALASARASASELALEAAAAR ALARA RR RESALE SRSA S SS 


tSTEST 17 BIT TEST OF MEMORY MANAGEMENT REGISTER 3 
te THIS TEST SETS AND CLEARS BITS <05:04> AND <02:00> OF MMR3. IT DOES 
* NOT TEST THAT THE BITS FUNCTION PROPERLY’ SINCE THAT REQUIRES MORE 
:* LOGIC; VER, IT TESTS THE REGISTER AND THE DATA PATH TO AND FROM 
te THE REGISTER. THE PROPER FUNCTIONING OF THESE BITS IS TESTED LATER 
te IN SEVERAL TESTS. 
Lp RRR EERE RE EERE EERE ERE 
1ST17: SCOPE 
20$: MOV AMMR3 RO :PUT ADDRESS OF MMR3 IN RO 
MOV #1,R2 :SET BIT TO FLOAT THRU MMR3 
CLR (RO) [CLEAR MMR3 
MOV (RO) ,R1 “READ MAR3 INTO R1 
BEQ S$ ‘BRANCH IF ZERO 
ERROR +11 [CAN'T CLEAR MMR3 
5$: MOV #6,R3 :SET UP LOOP COUNT 
MOV #1$,SLPERR 7SET LOOP ON ERROR POINTER TO 1$ 
1$: MOV R2, (RO) [LOAD MMR3 
MOV (RO) ,R1 [READ MMR3 INTO R1 
CMP R2,R1 ‘DOES DATA MATCH PATTERN? 
BEQ 2$ ;BRANCH IF IT MATCHES 
ERROR +15 HAS WRONG DATA 
2$: ASL R2 [LEFT SHIFT DATA PATTERN 
SOB R3,1$ ‘BRANCH BACK IF R3 NOT 0 
MOV #77 ,R2 [PUT DATA CATTERN IN R2 
MOV #12$, $LPERR [SET LOOP ON ERROR POINTER TO 12$ 
12$: MOV R2, (RO) :TRY TO SET ALL BITS IN MMR3 
MOV (RO) .R1 [READ MMR3 INTO R1 
CMP R2,R1 7SEE IF ALL BITS GOT SET 
BEQ 3s [BRANCH IF ALL WERE | SET 
ERROR +15 [MMR3 HAS WRONG DAT 
3$: MOV #13$,S$LPERR :SET LOOP ON ERROR POINTER TO 13$ 
13$: RESET ; ISSUE _AN NIT 
MOV (RO) ,R2 “READ ws R2 
BEQ 4$ [BRANCH IF HRS CLEARED 
ERROR +11 [CAN'T CLEAR MMR3 
4$: MOV #20$,$LPERR *SET LOOP ON ERROR POINTER TO START OF TEST 
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TNF Nol Nol aNol eNol oNol Nel eNoF Nel eVNol eNolaNoleNol eNol eNoleNoleVele\olo\ 
“SaTtL GROUP 2 PAR AND PDR TESTS 
ST NoF NoF eNoF No oNoF eNoF No Nol Nol Nol Nol eNoFeNol eNoF NaF oNoloNoFoNoSo\ 


FFARR REEREEER ARE RRERERREERREERERERRERERREREEE 


ssTEST 20 DUAL ADDRESS KERNAL PAR'S,ON LOADING 


THIS TEST FIRST CLEARS ALL THE KERNAL PAGE ADDRESS mgr kha 
:*AND CHECKS TO SEE THAT THEY EACH HOLD ZERO. THEN, STARTING 
:*WITH I-SPACE ADDRESS REGISTER ZERO, ONE REGISTER AT A TIME IS 

GATI ALL_KERNAL eri REGISTERS ARE 
: *NOW THE ONE UNDER TEST IS NON-ZERO. 
:*INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN 
;*AT THE END OF THIS TEST. 


eTist titi ti titi itt t itt t iii iiiititiiii titi titi itt i titi iii iit 


023350 TST20: SCOPE 
023352 767 156720 O$: JSR PC ,CLEANUP zs INITIALIZE THE ERROR LOCATIONS 
23356 012767 023404 155524 MOV #1$,SLPERR SET LOOP ON ERROR POINTER TO 1$ 
23 012705 172340 MOV #KIPARO,RS PUT ADDRESS OF FIRST PAR _IN R5 
023370 767 156664 JSR PC, CLRREG CLEAR 16 REGISTERS POINTED TO BY R5 
023374 012700 172340 MOV #KIPARO,RO PUT ADDRESS OF FIRST PAR IN RO 
023400 012701 000020 MOV #20,R1 BRANCH COUNT IS 16 DECIMAL 
023404 011002 1$: MOV (RO) ,R2 READ PAR TO R2 
234 001401 BEQ 2$ 3 CH IF PAR IS 0 
023410 104030 ERROR +30 PAR NOT ZERO 
023412 2700 000002 2$: D #2,RO0 POINT TO NEXT REGISTER 
023416 077106 SOB R1,1$ BRANCH BACK TO 1$ 15 TIMES 
;NOW START DUAL ADDRESSING TEST BY LOADING -1 INTO ONE REGISTER AND 
READING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY 
DROPPED BITS eu, BE FOUND IN THE NEXT TEST). 
023420 012767 023432 155462 MOV -SLPERR sSET t ERROR POINTER TO 3$ 
023426 012700 172340 MOV . PUT ADDRESS OF FIRST PAR_IN RO 
023432 012705 172340 3$: MOV #KIPARO,RS ;LOAD STARTING ADDRESS INTO RS 
023436 004767 661 JSR PC,CLRREG CLEAR 16 REGISTERS oe ot TO BY RS 
023442 012701 172376 MOV #KDPAR7 ,R1 3 KDPAR7 ADDRESS INT 
023446 012710 177777 MOV #~-1, (RO) LOAD REGISTER UNDER 
023452 5067 155520 4$: CLR $TMPO FLAG TO INDICATE THERE WAS A MATCH 
023456 011102 MOV (R1) ,R2 READ ALL RE RS 
023460 1406 BEQ 6$ BRANCH IF REGISTER IS 0 
023462 020001 CMP RO,R1 :1S THE ADDRESS OF Se thats REGISTER THE SAME 
SAS THE REGISTER UNDER TEST 
023464 001402 BEQ 5$ BRANCH IF ADDRESSES MATCH | 
23466 004767 156642 JSR PC ,DUALADR :LOG AND REPORT ERRORS 
023472 005267 155500 5$: INC $TMPO SET FLAG WHEN ADDRESSES MATCH 
23476 162701 2 6$: SUB #2,R1 ;POINT TO NEXT REGISTER 
023502 022701 172340 CMP #KIPARO,R1 SEE IF ALL REGISTERS HAVE BEEN READ 
23506 101761 BLOS 4$ BRANCH IF MORE TO READ 
023510 2700 000002 ADD #2,R0 NOW LOAD THE NEXT REGISTER 
023514 022700 172376 CMP #KDPAR7 ,RO ;SEE IF THERE ARE MORE REGISTERS TO TEST 
23520 10334 BHIS 3$ BRANCH IF MORE REGISTERS TO TEST 
023522 012767 023352 155360 MOV crores SET LOOP ON ERROR POINTER TO START OF TEST 
23530 005767 155566 TST : SEE IF THERE WERE ANY ERRORS 
023534 0004 BR ST) 7 ;BRANCH TO NEXT "eee a. NO ERRORS 
23536 016767 155560 155444 MOV ERRNT, $STMP5 ; SAVE # OF ERRORS FOR PAR OUT 
023544 104031 ERROR +31 UMMARY OF DUAL ADDRESS TEST 


e 
PITTIIII TILT IIT TTITI TILL LLL TTL LLL LLL TLL LLL 


SEQ 0049 
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DUAL ADDRESS SUPERVISOR PAR'S,ON LOADIN SEQ 0050 
seTes! 21 DUAL ADDRESS SUPERVISOR PAR'S,ON LOADING 
THIS TEST FIRST CLEARS ALL THE SUPERVISOR PAGE ADDRESS — 
;*AND CHECKS T THEY EAC D ZERO. THEN, STARTING 
;*WITH I=SPACE ADDRESS REGISTER ZERO, od REGISTER AT AT 
;*LOADED WITH A . RVISOR ADDRESS — ARE 


; ZERO 
:*INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN 
;*AT THE END OF THIS TEST. 


: 5 REKAEREEEEARERAEREKEEEKEREREEAEREEREEEEAREEAEREREREEEEREKEEEREEREKRKK 


023546 000004 TST21: SCOPE 

1918 023550 004767 156522 208: JSR PC, CLEANUP INITIALIZE THE ERROR LOCATIONS 
023554 012767 023602 155326 MOV a #1$,$LPERR SET LOOP ON ERROR POINTER TO 1$ 

012705 172240 MOV #SIPARO,RS [PUT ADDRESS OF FIRST PAR IN R5 

02 004767 156466 JSR PC,CLRREG ;CLEAR 16 REGISTERS POINTED TO BY R5 
023572 012700 172240 MOV #SIPARO,RO [PUT ADDRESS OF FIRST PAR IN RO 
023576 012701 000020 MOV #20,R1 ;BRANCH ‘ey IS 16 DECIMAL 
023602 011002 1$: MOV (RO) .R2 ;READ PAR TO R2 
023604 001401 BEQ 2s BRANCH IF PAR IS 0 
023606 104030 ERROR +30 [PAR NOT ZERO 
023610 062700 000002 2s: ADD #2,R0 sPOINT TO NEXT REGISTER 
023614 077106 SOB R1,1$ ;BRANCH BACK TO 1$ 15 TIMES 


;NOW START DUAL ADDRESSING TEST BY LOADING -1 INTO ONE REGISTER AND 
READING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY 
DROPPED BITS WILL BE FOUND IN THE NEXT TEST). 


023616 012767 023630 155264 MOV #3$ ,SLPERR ;SET LOOP ON ERROR POINTER TO 3$ 

023624 012700 172240 MOV #SIPARO,RO :PUT eitz OF FIRST PAR_IN RO 

023630 012705 172240 3$: MOV #SIPARO,R5 LOAD STARTING ADDRESS INTO R5 

023634 004767 156420 JSR PC,CLRREG : CLEAR 16 REGISTERS ogy TO BY R5 

023640 012701 172276 MOV #SDPAR7 ,R1 PUT AR7 ADDRESS INTO R1 

023644 012710 177777 MOV #-1, (RO) ; LOAD SREGISTER UNDER TEST 

023650 005067 155322 4$: CLR STMPO FLAG TO INDICATE THERE WAS A MATCH 

023654 011102 MOV (R1) ,R2 ;READ ALL REGISTERS 

023656 001406 BEQ 6$ [BRANCH IF REGISTER IS 0 

023660 020001 CMP RO,R1 21S THE ADDRESS OF ~~ rf REGISTER THE SAME 
SAS THE REGISTER UNDER TEST 

023662 001402 BEQ 5$ BRANCH IF ADDRESSES MATCH — 

023664 004767 156444 JSR PC ,DUALADR :;LOG AND REPORT ERRORS 

023670 005267 155302 5$: INC $TMPO SET FLAG WHEN ADDRESSES MATCH 

023674 162701 000002 6$: SUB #2,R1 ;POINT TO NEXT REGISTER 

023700 022701 172240 CMP #SIPARO,R1 SEE IF ALL REGISTERS HAVE BEEN READ 

023704 101761 BLOS 4$ ce IF MORE TO READ 

023706 062700 000002 ADD #2,R0 LOAD THE NEXT REGISTER 

023712 022700 172276 CMP #SDPAR7 ,RO See IF THERE ARE MORE etn tet TO TEST 

023716 103344 BHIS 3$ [BRANCH IF MORE REGISTERS TO TEST 

023720 012767 023550 155162 MOV #20$,$LPERR :SET LOOP ON ERROR po eh To START OF TEST 

023726 005767 155370 TST ERRCNT ; SEE IF THERE WERE ANY ERRORS 

023732 000404 BR TST22 ; ;BRANCH TO NEXT TEST re NO ERRORS 

023734 016767 155362 155246 MOV ERRCNT ,STMP5S >SAVE # OF ERRORS FOR PAR OUT 


023742 104031 ERROR +31 >; SUMMARY OF DUAL ADDRESS TEST 
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1923 


023744 


024006 
024012 


024014 012767 


156324 


024026 


012700. 177640 


012705 
004767 


024140 


155124 


156246 
155104 


000002 
177640 


000002 
177676 


023746 
155172 


155164 


155130 


154764 


155050 


M 4 
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J REAR R AAA AAEREEREREREERRREREREEERRERRERERERARRERAREREAEREREE 


ssTEST 22 DUAL ADDRESS USER PAR'S,ON LOADING 


j*THIS TEST ¢ tes CLEARS ALL THE USER PAGE ADDRESS REGISTERS, 
*AND CHECKS TO SEE THAT THEY EACH HOLD ZERO. ot “s ART ING 
‘WITH I-SPACE ADDRESS REGISTER ZERO, ONE REGISTER AT A TIME IS 
; GATIVE ONE. ALL USER “eng REGISTERS ARE 
ONE UNDER TEST IS NON-ZER 


3 ZERO. 
:*INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN 
;*AT THE END OF THIS TEST. 


POTTTTTC Tei titi iti ti ttt titi tii iii tiiiti titi titi tii t titi iii iit. 


TST22: 

O$: INITIALIZE THE ERROR LOCATIONS 
7SET LOOP ON ERROR POINTER ju 1$ 
;PUT ADDRESS OF FIRST PAR IN RS 
:CLEAR 16 REGISTERS POINTED TO BY RS 
:PUT ADDRESS OF FIRST PAR IN RO 


1$ ;BRANCH COUNT IS 16 DECIMAL 


23: AD [POINT TO NEXT . eK: 
SOB R1,1$ [BRANCH BACK TO 1$ 15 TIMES 
;NOW START DUAL ADDRESSING TEST BY LOADING -1 INTO ONE REGISTER AND 
READING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY 
DROPPED BITS WILL Bf FOUND IN THE NEXT TEST). 
MOV RROR POINTER TO ' 


3$: ; Ss ING INTO R5 
SCLEAR 16 REGISTERS POINTED TO BY R5 
;PUT yor! ADDRESS I R1 

LOAD REGISTER UNDER TEST 

4$: $STMPO SFLAG TO INDICATE THERE WAS A MATCH 


IS 0 
HE ADDRESS OF NON-ZERO REGISTER THE SAME 
AS THE REGISTER UNDER TEST? 
‘BRANCH IF ADDRESSES MATCH 
AND a ERRORS 
Boni: y MATCH 
[SEE IF ALL REGISTERS HAVE BEEN READ 
7BRANCH IF MORE TO READ 
NOW LOAD THE NEXT REGISTER 
: SEE iF THERE ARE MORE REGISTERS TO TEST 
7BRANCH IF MORE REGISTERS TO TEST 
7SET LOOP ON E — NTER TO START OF TEST 
: SEE IF THERE WERE ANY ERRORS 
7 BRANCH TO NEXT TEST IF NO ERRORS 


TST23 
ERRCNT ,STMP5S 7SAVE # OF ERRORS FOR PAR OUT 
+31 >; SUMMARY OF DUAL ADDRESS TEST 


3 
#20$,$LPERR 
ERRCNT 


SEQ 0051 
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1929 


024142 


024210 


024212 


156126 


024224 
172300 


154726 


156050 
154706 
00000. 


2 
172300 


000002 
172336 


024144 
154774 


154766 
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154732 


154670 


154566 


154652 


MADR ARALALALLLASALAAAAA LAA EAR R EER ARERR ARR RRA RR RAR RAS RRR DDS DI 


: TEST 23 DUAL ADDRESS KERNAL PDR'S,ON LOADING 


:*THIS TEST FIRST CLEARS ALL THE KERNEL PAGE DESCRIPTOR REGISTERS, 
;*AND CHECKS TO SEE THAT THEY EACH HOLD ZERO. THEN, STARTING 
t*WITH I=SPACE DESCRIPTOR REGISTER ZERO, ONE REGISTER AT A TIME IS 
; *LOADED WITH A NEGATIVE ONE. ALL KERNEL DESCRIPTOR REGISTERS ARE 
:*NOW READ TO SEE THAT ONLY THE ONE UNDER TEST IS ZERO. 
:*INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN 
7*AT THE END OF THIS TEST. 

POSS eee re Pe reser r eee eee TTT TTT TTT TTT TTT TTT TT TTT TT TTT TTT 

18123: 

208: PC, CLEANUP 4M y § THE ERROR LOCATIONS 

MO 7SET LOOP ON E ay POINTER TO 1$ 
;PUT ADDRESS OF FIRST PDR IN RS 

;CLEAR 16 oe ae ban POINTED TO BY R5 

[PUT ADDRESS OF FIRST PDR IN RO 

;BRANCH COUNT IS 16 DECIMAL 

1$: ;READ PDR TO R2 

2$ ;BRANCH IF PDR IS 0 
R NOT ZERO 


2$: AD [POINT TO NEXT REGISTER 

SOB R1,1$ BRANCH BACK TO 1$ 15 TIMES 
NOW START DUAL ADDRESSING TEST BY LOADING -1 INTO ONE REGISTER AND 
READING THE REST TO SEE ONLY oe NEXT TEST) NON ZERO. (ANY 


; DROPPED Ad, WILL BE a IN T 
#3$,SLPERR SET LOOP ON ey POINTER TO 3$ 
:PUT erty OF FIRST PDR_IN RO 
3$: ;LOAD STARTING ADDRESS INTO R5 
CLEAR 16 REGISTERS POINTED TO BY R5 
;PUT KDPDR7 ADDRESS INTO R1 
[LOAD REGISTER UNDER TEST 
4$: $TMPO FLAG TO INDICATE THERE WAS A MATCH 
[READ ALL REGISTERS 
SBRANCH IF REGISTER IS 0 
71S THE ADDRESS OF NON-ZERO | REGISTER THE SAME 
ZAS THE REGISTER UNDER TEST? 
;BRANC CH IF ADDRESSES MATCH 
AND REPORT ERRORS 
;SET FLAG WHEN AD 
#2,R1 ;POINT TO NEXT REGISTER 
#KIPDRO,R1 7SEE IF ALL REGISTERS HAVE BEEN READ 
4$ nee IF MORE TO READ 
#2,R0 NOW LOAD THE NEXT REGISTER 
#KDPDR7 ,RO 7SEE IF THERE ARE MORE REGISTERS TO TEST 
$ 7BRANCH IF MORE REGISTERS TO TEST 
#20$,$LPERR ;SET LOOP ON ERROR POINTER TO START OF TEST 
ERRCNT ; RROR 


TST24 
ERRCNT ,STMP5S : SAVE # OF ERRORS FOR PDR 
+31 >; SUMMARY OF DUAL ADDRESS TEST 


5$ 
PC ,DUALADR 
$TMPO 


SEQ 0052 
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1935 FARRAR AAAAAARAARAE AERA AERERAAAEAAEARARARARRAAREAERREEREREH 


: TEST 24 DUAL ADDRESS SUPERVISOR PDR'S,ON LOADING 


: STHIS TEST FIRST ey ALL THE SUPERVISOR PAGE Sage Ok REGISTERS, 
;*AND CHECKS TO SEE T THEY EACH HOLD ZERO. THEN —- Hee 
7 *W1TH I SPACE DESERIPTOR REGISTER oe ONE REGISTER TIME IS 
; IT NEGATIVE ONE. ALL SUPERVISOR BESCRIPTOR REGISTERS ARE 
3 HE ONE SUNDER TEST IS NON-ZERO. 
:*INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN 
>*AT THE END OF THIS TEST. 
CIT Iti ti titi tii itt ii titi tii itiiii titi iii iiiiiiiiiiiiiiiti iii 
TST24: 
155730 208: PC, CLEANUP s INITIALIZE THE ERROR LOCATIONS 
024374 154534 [SET LOOP ON ERROR POINTER TO 1$ 
172200 # or ;PUT ADDRESS OF FIRST PDR IN RS 
155674 ;CLEAR 16 REGISTERS POINTED TO BY R5 
172200 [PUT ADDRESS OF FIRST PDR IN RO 
000020 #20,R1 ‘BRANCH COUNT IS 16 DECIMAL 
1$: MOV " READ PDR TO R2 
$ [BRANCH IF PDR IS 0 
;PDR NOT ZERO 
000002 2s: :POINT TO ny REGISTER 
S$0B R1,1$ H BACK TO 1$ 15 TIMES 
;NOW START DUAL ADDRESSING TEST by LOADING -1 ONTO ONE REGISTER AND 
;READING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY 
;DROPPED BITS WILL BE 4 ag IN THE NEXT TEST). 
012767 024422 154472 MOV #3$ ,SLPERR :SET LOOP ON ERROR POINTER TO 3$ 
012700 00 #SIPDRO, RO ;PUT ADDRESS OF FIRST + IN RO 
3$: #SIPDRO,RS ;LOAD STARTING ADDRESS INTO R5 
PC, CLRREG CLEAR 16 REGISTERS SOINTED TO BY RS 
#SDPDR7,R1 T SDPDR7 ADDRESS INTO R1 
#1, (RO) £LOAD REGISTER UNDER TEST 
154530 4$: $TMPO FLAG TO INDICATE THERE WAS A MATCH 
(R1),R2 TREAD ALL REGISTERS 
6$ *BRANCH IF REGISTER IS 0 
024452 RO,R1 31S THE ADDRESS OF wg REGISTER THE SAME 
[AS THE REGISTER UNDER TEST 
024454 5$ ;BRANCH IF ADDRESSES MATCH — 
004767 155652 J PC ,DUALADR ;LOG AND REPORT ERRORS 
154510 : STMPO ‘SET FLAG WHEN ADDRESSES MATCH 
000002 : #2,R1 [POINT TO NEXT REGISTER 
172200 #SIPDRO,R1 [SEE IF ALL REGISTERS HAVE BEEN READ 
4$ —_—e IF MORE TO READ 


000002 #2,R0 LOAD THE NEXT REGISTER 
172236 #SDPDR7 ,RO See IF THERE ARE MORE REGISTERS TO TEST 
;BRANCH IF MORE REGISTERS TO TEST 
024342 154370 MOV #20$,SLPERR ;SET LOOP ON ERROR POINTER TO START OF TEST 
154576 ERRCNT SEE IF THERE WERE ANY ERRORS 
TST25 ; ;BRANCH TO NEXT y $3 IF NO ERRORS 
154570 154454 MOV ERRCNT ,STMPS 7SAVE # OF ERRORS FOR PDR OUT 
+31 ;; SUMMARY OF DUAL ADDRESS TEST 
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1941 SREAREERAAAAREREREAARAEREAERERERAA AREER EREREEERE RHEE EE 


:#TEST 25 DUAL ADDRESS USER PDR'S,ON LOADING 


j*THIS TEST FIRST AT ALL THE USER PAGE oy REGISTERS, 
;*AND CHECKS TO SEE T THEY EACH HOL TARTING 
;*WITH I-SPACE DESCRIPTOR REGISTER ZERO, ONE R GISTeR AT A TIME IS 
[*LOADED WITH A NEGATIVE ONE. ALL USER DESCRIPTOR REGISTERS ARE 

; THE ONE UNDER TEST IS NON-ZERO. 

} AND A SUMMARY OF THEM IS GIVEN 

:*AT THE END OF THIS T 


en Rn Hk MR RR es 
18125: 
155532 20$: PC, CLEANUP s INITIALIZE THE ERROR LOCATIONS 
154336 MO SET LOOP ON py POINTER TO 1$ 
;PUT ADDRESS OF FIRST PDR IN RS 
;CLEAR 16 eas tae POINTED TO BY RS 
[PUT ADDRESS OF 4° ST PDR IN RO 
COUNT IS 16 DECIMAL 
1$: TO R2 


ZERO 
2s: ADD :POINT TO NEXT REGISTER 
SOB R1,1$ BRANCH BACK TO 1$ 15 TIMES 
;NOW START DUAL ADDRESSING TEST BY LOADING ~1 INTO ONE a AND 
READING THE REST TO SEE ONLY THAT REGISTER s NON ZERO. (AN 
DROPPED BITS WILL BE FOUND IN THE NEXT TEST) 
024620 154274 MOV #3$,,$LPE SET LOOP ON ERROR POINTER TO 3$ 
00 :PUT ADDRESS OF FIRST PDR IN RO 
3$: ;LOAD STARTING ADDRESS INTO R5 
;CLEAR 16 REGISTERS POINTED TO BY R5 
:PUT UDPDR7 ADDRESS iB R1 
1 REGISTER UNDER TEST 
154332 4$: STMPO ;FLAG TO INDICATE — WAS A MATCH 
;READ ALL REGISTERS 
6$ [BRANCH 4 REGISTER IS 0 
024650 020001 :1S THE ADDRESS OF ~ gp ind REGISTER THE SAME 
AS THE REGISTER UNDER TEST 
024652 5$ 7BRANCH IF ADDRESSES MATCH — 
004767 155454 PC ,DUALADR ; PORT ERRORS 
154312 : $TMPO ;SET FLAG WHEN ADDRESSES MATCH 
000002 : #2,R1 TO NEXT REGISTER 
177600 #UIPDRO,R1 ‘SEE IF ALL REGISTERS HAVE BEEN READ 
4$ BRANCH IF MORE TO READ 


000002 #2,RO0 NOW LOAD T EGISTER 
177636 #UDPDR7 ,RO ; ARE MORE REGISTERS TO TEST 
3$ : H IF MORE REGISTERS TO TEST 
024540 154172 #20$,$LPERR ;SET LOOP ON ERROR po gel TO START OF TEST 
154400 ERRCNT : SEE IF THERE WERE ANY ERRORS 
TST26 ; ;BRANCH TO NEXT yh IF 7% teat 
154372 154256 ERRCNT ,STMPS ;SAVE # OF ERRORS FOR PDR OU 
+31 >; SUMMARY OF DUAL ADDRESS TEST 


FARA AERA AREER AERA REARERERAEEAEAAEEAEAEARAAEAEEAEAERAEA AREER RARER EE 


: TEST 26 COUNT PATTERN IN KERNAL PAR'S 


THIS TEST RUNS A_ COUNT PATTERN THROUGH THE KERNAL PAGE ADDRESS REG 
:*1F THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE REGISTE 


ISTERS. 
R ADDRESS, 
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0 
1960 


1961 
1965 


025150 


00075 
012767 
005767 


000404 
016767 


155334 
024752 


172340 


155404 
000002 
172376 
177777 
000401 


024736 
154266 


154260 


155222 
025064 


172240 


155272 
000002 
172276 
177777 
000401 


025050 
154154 


154146 


154140 


154060 


154144 


154026 


153746 


154032 


MACRO M1111 


:*DATA PATTERN, AND BAD DATA ARE REPORTED. 
: *OF ERRORS IS 


18126: 
O$: 


1$: 
2$: 


3$: 


4$: 


ERROR 


:*TEST 27 


: ATHIS TEST RUNS A_COUNT PATTERN THROUGH THE SUPERVISOR PAGE ADDRESS REGISTERS. 
;*IF THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE gis ADDRESS, 
[*DATA PATTERN, AND BAD DATA ARE REPORTED. TEST UMMARY 


D 
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GIVEN. 


PC, CLEANUP 
wis, | SLPERR 
#KIPARO,RO 
R17, (RO) 

(RO) ,R2 
R1,RG 
R4.R2 
PC ,PARCOUNT 
#KDPAR? .RO 
#177777 ,R1 
4$ 
#401,R1 


#20$,$LPERR 
ERRCNT 


TST27 
ERRCNT ,STMPS 
+32 


. 


;CLEAR REGISTER TO HOLD COUNT PATTERN 
PUT ADDRESS OF FIRST REGISTER INTO RO 


AT THE END OF THE TEST A SUMMARY 


Peso rerrrrrrerrrTITTTTITITTTITITITITTTTT TTT Titi iil 


As Me ERROR LOCATIONS 
SET LOOP ON ERROR 


POINTER TO 1$ 


OAD COUNT INTO REGISTER 
TREAD REGISTER ~s TO R2 


PUT PATTERN IN 

;SEE IF DATA MATCHES PATTERN 
;BRANCH IF DATA IS GOOD 

;LOG AND REPOR 


T COUNT ERROR 


:POINT TO NEXT REGISTER 


SEE IF YOU one te aes KDPAR7 PAR 


:BRANCH 


IF 


MOR 
:SEE IF it ae HAS REACHED 177777 


BRANCH 


: INCREASE COUNT PATTERN 
CH TO C 


[BRAN TEST 
:SET LOOP POINTER TO START OF TEST 


ONT INUE 


SEE IF THERE WERE ANY ERRORS 


; ;BRANCH 
7SAVE # 
; SUMMAR 


TO NEXT TEST i NO ERRORS 
YPEOUT 


OF ERRORS FOR T 


Y OF COUNT PATTERN FAILURES 


CLARE A AERA EEE AEAAAAERARAARARAAAREREAEERERARER EH 


COUNT PATTERN IN SUPERVISOR PAR'S 


:*OF ERRORS IS GIVEN. 


208: 


1$: 
2$: 


3$: 


4$: 


PC, CLEANUP 
#1, SLPERR 
#SIPARO,RO 
R1, (RO) 
(RO) .R2 
R1,R4 

R4,R2 

PC ,PARCOUNT 
#SDPAR? .RO 
#177777,R1 
4$ 

#401,R1 
#20$,$LPERR 
ERRCNT 


TST30 
ERRCNT ,STMP5 


AT THE END 


PT TTTTTTITI TITEL T TITLE LLL LLL LLL LLL LLL LLL 


T$127: 


OF THE 


for yy ERROR LOCATIONS 
LOOP ON ERROR 


‘CLEAR REGISTER TO HOLD COUNT PATTERN 
:PUT ADDRESS OF FIRST REGISTER INTO RO 


PA 


POINTER TO 1$ 


;LOAD COUNT INTO REGISTER 
:READ REGISTER Back TO R2 


TTERN IN 


Cee IF DATA MATCHES PATTERN 
[BRANCH IF DATA IS GOOD 


LOG AND 


PORT COUNT ERROR 


RE 
;POINT TO NEXT REGISTER 


: SEE IF Ht a PASSED THE SDPAR7 PAR 
CH IF MORE T 


SEE IF COUNT HAS REACHED 177777 
BRANCH IF SO 
AEN TOC COUNT PATTERN 


TEST 
[SET LOOP POINTER TO fl TEST 


CONT INUE 


; SEE IF THERE WERE ANY ERR 


TO NEXT TEST IF NO ERRORS 


; ;BRANCH 
7SAVE # OF ERRORS FOR TYPEOUT 


SEQ 0055 


ae 
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COUNT PATTERN IN SUPERV SOR PAR'S SEQ 0056 
face 025156 104032 ERROR +32 : SUMMARY OF COUNT PATTERN FAILURES 
1971 DOI IISIIRIIIIOIIIISIIOIOIOIOIIOIIOIOIUIOIIOIOIIOIIUIDISUIOIIUIIOIIIUIUIIOR OR RR te 
S*TEST 30 COUNT PATTERN IN USER PAR'S 
** 
‘*THIS TEST RUNS A COUNT PATTERN THROUGH THE USER PAGE ADDRESS REGISTERS. 
‘*]® THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE REGISTER ADDRESS, 
‘eDATA PATTERN, AND BAD DATA ARE REPORTED. AT THE END OF THE TEST A SUMMARY 
S*OF ERRORS IS GIVEN. 
PTT IT Ti titi i titi titi ititiiiiiiiiititiiiiiiitiiiiiiiiti iii) 
025160 000004 1ST30: SCOPE 
1972 025162 004767 155110 20$: JSR PC, CLEANUP Z INITIALIZE ERROR LOCATIONS 
025166 012767 025176 153714 MOV wi, $LPERR ‘SET LOOP ON ERROR POINTER TO 1$ 
025174 005001 CLR =CLEAR REGISTER TO HOLD COUNT PATTERN 
025176 012700 172340 1$: MOV SE IPARO RO :PUT ADDRESS OF FIRST REGISTER INTO RO 
025202 010110 2$: MOV R1, (RO) [LOAD COUNT INTO REGISTER 
025204 011002 MOV (RO) ,R2 TREAD REGISTER BACK TO R2 
025206 010104 MOV R1,R4 [PUT PATTERN IN R4 
025210 020402 CMP R4.R2 [SEE IF DATA MATCHES PATTERN 
025212 001402 BEQ 3$ ‘BRANCH IF DATA IS GOOD 
025214 004767 155160 JSR PC ,PARCOUNT SLOG AND REPORT COUNT ERROR 
025220 062700 000002 3$: ADD #2.RO0 ‘POINT TO NEXT REGISTER 
025224 022700 172376 CMP #KDPAR7,RO ‘SEE IF YOU PASSED THE KDPAR7 PAR 
025230 103364 BHIS  2$ ‘BRANCH IF MORE TEST 
025232 022701 177777 CMP #177777,R1 [SEE IF COUNT HAS REACHED 177777 
025236 001403 BEQ [BRANCH IF SO 
025240 062701 000401 ADD #401,R1 : INCREASE Cont PATTERN 
025244 000754 BR 1$ [BRANCH TO CONTINUE TEST 
025246 012767 025162 153634 4$: MOV #20$,$LPERR 7 SET on POINTER TO START OF TEST 
025254 005767 154042 TST ERRCNT [SEE IF THERE WERE ANY ERRORS 
025260 000404 BR TST31 + ; BRANCH TO NEXT TEST IF NO ERRORS 
025262 016767 154034 153720 MOV ERRCNT,S$TMPS § : SAVE # OF ERRORS FOR TYPEOUT 
as 025270 104032 ERROR +32 SUMMARY OF COUNT PATTERN FAILURES 
1977 MAREBBAAASAAAALALALAELELSESLES ELSE SES ERR R SRR ERA RRR ER RR RRR RRR RRR RR SS SY 
: TEST 31 COUNT PATTERN IN KERNAL PDR'S 
THIS TEST RUNS A COUNT PATTERN THROUGH THE KERNAL PAGE DESCRIPTOR REGISTERS. 
;*SINCE BITS <05:04> AND <0> ARE NOT INPLEMENTED. AND BITS <07:06> 
*CANNOT BE SET BY DIRECT LOAD, THEY ARE MASKED OUT OF THE DATA COMPARE. 
<eTHESE BITS ARE STILL SENT TO THE DESCRIPTOR REGISTER TO FIND BAD ETCHES. 
:*IF THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE REGISTER ADDRESS, 
S SbATA PATTERN, AND BAD DATA ARE REPORTED. AT THE END OF THE TEST A SUMMARY 
>*OF ERRORS IS GIVEN. 
PRTITT Titi TTT ttt tT TTT TTT Titi iii titi iti ti titi iii iti iiiiiiiiiiii 
025272 000004 TST31: SCOPE 
1978 025274 004767 154776 20$: JSR PC, CLEANUP INITIALIZE ERROR LOCATIONS 
025300 012767 025310 153602 MOV #1$,$LPERR [SET LOOP ON ERROR POINTER TO 1$ 
025306 005001 CLR R1 [CLEAR REGISTER TO HOLD COUNT PATTERN 
025310 012700 172300 1$: MOV #KIPDRO,RO ;PUT ADDRESS OF FIRST REGISTER INTO RO 
025314 010110 2$: MOV R17, (RO) LOAD COUNT INTO REGISTER 
025316 011002 MOV (RO) .R2 TREAD REGISTER BACK TO R2 
025320 010104 MOV R1_RG ‘PUT PATTERN IN R4 
025322 042704 000361 BIC #000361,R4 SCLEAR BITS NOT FOUND IN REGISTER 
925326 020402 CMP R4,R2 : SEE IF DATA MATCHES PATTERN 
5330 001402 BEQ 3$ “BRANCH IF DATA IS GOOD 


02 I 
025332 004767 155042 JSR PC ,PARCOUNT ;LOG AND REPORT COUNT ERROR 
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1979 


000002 
172336 
177777 
000401 


025274 
153724 


153716 


MACRO m1111 


3$: 


153516 <4$: 


153602 
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#2,R0 

~ whepaloane 
#177777 ,R1 
4$ 

a oR) 
#20$,$LPERR 
ERRCNT 

TS132 

ERRCNT ,STMPS 
+32 


;POINT TO NEXT REGISTER 

7SEE IF YOU PASSED THE KDPDR7 PDR 
;BRANCH IF MORE TEST 

;SEE IF COUNT HAS REACHED 177777 
;BRANCH IF 


so 

; INCREASE COUNT PATTERN 

BRANCH TO CONTINUE TEST 

;SET LOOP POINTER TO START OF TEST 
: SEE IF THERE WERE ANY ERRORS 

; ;BRANCH TO NEXT TEST IF NO ERRORS 
[SAVE # OF ERRORS FOR TYPEOUT 

; SUMMARY OF COUNT PATTERN FAILURES 


SEQ 0057 


G 
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1984 SRRAAAARARAAAARARARAARAAAAAAARARARAARRRARARARRAAHRAARARARRARERREH 


*TEST 32 COUNT PATTERN IN SUPERVISOR PDR'S 


THIS TEST RUNS A COUNT PATTERN THROUGH THE SUPERVISOR PAGE DESCRIPTOR REGISTERS. 
:*SINCE BITS <05:04> AND <0> ARE NOT INPLEMENTED, AND BITS <07:06> 
*CANNOT BE SET BY DIRECT LOAD, THEY ARE MASKED OUT OF THE DATA COMPARE. 
« e THESE BITS ARE STILL SENT TO THE DESCRIPTOR REGISTER TO FIND BAD ETCHES. 
‘s]F THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE REGISTER ADDRESS, 
‘*DATA PATTERN, AND BAD DATA ARE REPORTED. AT THE END OF THE TEST A SUMMARY 
>*OF ERRORS IS GIVEN. 
eeest iti tittittti tri iiiiiiiiii iii iii titi iii titi iti titi tii h 
025410 000004 TST32: 
154660 208: J CLEANUP : INITIALIZE ERROR LOCATIONS 
025426 MO ATs $LPERR :SET LOOP ON ERROR POINTER TO 1$ 
R1 “CLEAR REGISTER TO HOLD COUNT PATTERN 
172200 18: #SIPDRO,RO :PUT ADDRESS OF FIRST REGISTER INTO RO 
2$: R1, (RO) LOAD COUNT INTO REGISTER 
(RO) , Re {READ REGISTER BACK TO R2 
‘PUT PATTERN IN RG 
000361 i #000361 RG [CLEAR BITS NOT FOUND IN REGISTER 
R4,R2 [SEE IF DATA MATCHES PATTERN 
3$ ‘BRANCH IF DATA IS GOOD 
154724 PC ,PARCOUNT [LOG AND REPORT COUNT ERROR 
000002 : #2,R [POINT TO NEXT REGISTER 
172236 #SDPDR7,RO 7SEE IF YOU PASSED THE SDPDR7 PDR 
$ [BRANCH IF MORE TEST 
177777 #177777,R1 >SEE IF COUNT HAS REACHED 177777 


4 BRANCH IF SO 

000401 #401,R1 ; INCREASE COUNT +e 
BR 1$ [BRANCH TO CONTINUE TEST 

025412 153400 : #20$,$LPERR :SET LOOP POINTER TO START OF TEST 
153606 ERRCNT : SEE IF THERE WERE ANY ERRORS 

TST33 : ;BRANCH TO NEXT TEST IF NO ERRORS 
153600 153464 ERRCNT ,STMP5S 7SAVE # OF ERRORS FOR TYPEOUT 

+32 [SUMMARY OF COUNT PATTERN FAILURES 


WEAR RRAAASAAAAASZALASALLAAALARSAESEAELAR ALARA RARER RAR RRR ARRAS SASS SO | 


:*TEST 33 COUNT PATTERN IN USER PDR‘S 


Se THIS TEST RUNS A COUNT PATTERN THROUGH THE USER PAGE ADDRESS REGISTERS. 
:*SINCE BITS <05:04> AND <O> ARE NOT INPLEMENTED. AND BITS <07:06> 
*CANNOT BE SET BY DIR RECT LOAD, THEY ARE MASKED OUT OF THE DATA COMPARE. 
Z*THESE BITS ARE STILL SENT TO THE DESCRIPTOR REGISTER TO FIND BAD ETCHES. 
is]f THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE REGISTER ADDRESS. 
:*DATA PATTERN, AND BAD DATA ARE REPORTED. AT THE E THE TEST A SUMMARY 
:*OF ERRORS IS GIVEN. 
RCTITT TILT TTT TTT TTT TTT TTT titi iti t titi titi tit iiiitiiiiiiiiiit 
025526 000004 15133: 
55 154542 208: CLEANUP INITIALIZE ERROR LOCATIONS 
025544 153346 MO Wig. $LPERR [SET LOOP ON ERROR POINTER TO 1$ 
R1 ZCLEAR REGISTER TO HOLD COUNT PATTERN 
177600 1$: :PUT ADDRESS OF FIRST REGISTER INTO RO 
2$: R “LOAD COUNT INTO REGISTER 
[READ REGISTER BACK TO Re 
R1,R4 [PUT PATTERN IN 
042704 000361 [CLEAR BITS NOT FOUND IN REGISTER 
025562 R4R2 [SEE IF DATA MATCHES PATTERN 
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025774 


154606 
000002 
177636 
177777 
000401 


025530 
153470 


153462 


025664 


000014 
172340 
144450 
172014 
144440 


025724 
124 
144404 


025646 


025770 
000014 


172014 


H 
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3$ 
PC ,PARCOUNT 
#2,R 
#UDPDR7 ,RO 
2$ 
#177777,R1 
of 
one 
153262 : #20$,$LPERR 
ERRCNT 
TST34 
153346 MOV +" ahenatiata 
+ 


;BRANCH IF DATA IS GOOD 
;LOG AND REPORT COUNT ERROR 


:POINT TO NEXT REGISTER 

: SEE IF YOU PASSED THE UDPDR7 PDR 
CH IF MORE TES 

SEE IF ae! HAS REACHED 177777 


‘BRANCH so 
INCREASE. COUNT oe toes 
BRANCH TO 


CONTINUE TEST 
;SET LOOP POINTER TO START OF TEST 
; SEE IF THERE WERE ANY ERRORS 
; BRANCH TO NEXT TEST IF NO ERRORS 
:SAVE # OF ERRORS FOR TYPEOUT 
; SUMMARY OF COUNT PATTERN FAILURES 


BYTE ADDRESSING OF KERNAL PAR'S 
THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING 


OF KERNAL PAGE ADDRESS 


REGISTERS. IT CAN BE ASSUMED THAT 


ONE RFGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS 


HAVE ALL BEEN TESTED. 


MARAE RARERAAALAASAALALLALALELASELALARARE RRA RARER RRR SARA SALAS SD OI 


15134: 
208: #11$,$LPERR 
#14,R2 


#KIPARO,RO 
11$: ARO 


33 
153174 ¢ #12$,S$LPERR 


#K IPARO+1 ,RO 


#52014,R2 
#124, (RO) 
KIPARO,R1 
R1,R2 

2s 

+33 


153140 2$: #20$,$LPERR 


KIP 
#172014, (RO) 
PARO,R1 


SET LOOP ON ERROR POINTER TO 11$ 
:PUT EXPECTED DATA IN R2 
DRESS OF REGISTER IN RO 


OAD LOWER BYTE OF REGISTER 


SREAD REGISTER INTO R 
;SEE IF 


R1 

ONLY LOWER BYTE WAS WRITTEN 
:BRANCH IF DATA MATCHES 
z:DIDN*T LOAD CORRECT BYTE 
SET LOOP ON ERROR POINTER 10 12$ 
[POINT TO UPPER BYTE OF REGISTER 
;LOAD EXPECTED DATA INTO R2 
[WRITE UPPER BYTE OF _— 
READ REGISTER INTO R 
;SEE IF ONLY UPPER BYTE - WRITTEN 


2D L CT BYTE 
[SET LOOP POINTER TO START OF TEST 


PETITITITITITITI TITTLE LLL LLL LLL 


;#TEST 35 BYTE ADDRESSING GF SUPERVISOR PAR'S 
THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING 


OF SUPERVISOR PAGE ADDRESS REGISTERS. IT CAN BE 


ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS 


HAVE ALL BEEN TESTED. 


—MmAAAARARASSSALASLELALESLASLSALESESER ESAS ELAR RARER RAR ARR R RAR SS 


ae 
153130 nem 


4,R 
#SIPARO,RO 
SIPAR 
#172014, (R80) 


;SET LOOP ON wr POINTER TO 11% 

;PUT EXPECTED DATA IN R2 

[PUT ADDRESS OF REGISTER IN RO 
ey THE REGISTER UNDER TEST 
LOAD LOWER BYTE OF REGISTER 


ASSUMED THA? i 


SEQ 0059 
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2014 


2015 026056 
6064 


026152 


2019 


026160 
2020 ath 


026204 
aces 10 
656916 


016701 
02 


33 
012767 


144234 


026030 


025752 


026074 
0000 


151474 


026056 


026200 
000014 


172300 
144074 
172014 
144064 


MACRO M 


153070 


153034 


153024 


152764 


152730 


152720 


PAR 





I 
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M1111 
"s SEQ 0060 

MOV SIPARO,R1 ;READ REGISTER INTO R1 
CMP sR, R2 [SEE IF ONLY LOWER BYTE WAS WRITTEN 
BEQ 1$ BRANCH IF DATA MATCHES 
ERROR +33 ;DIDN'T LOAD CORRECT BYTE 

1$: MOV #12$,$LPERR SET LOOP ON ERROR POINTER TO 128 
MOV #SIPARO+1,RO  :POINT TO UPPER BYTE OF REGISTER 
MOV #52014,R2 :LOAD EXPECTED DATA INTO Re 

128:  MOVB #124, (RO) WRITE UPPER BYTE OF REGISTER 
MOV SIPARO,R1 TREAD REGISTER INTO RI 
CMP ss R1,R2 7SEE IF ONLY UPPER BYTE WAS WRITTEN 
BEQ 2$ :BRANCH TO EXIT IF CORRECT 
ERROR +33 DIDN'T LOAD CORRECT BYTE 

28: MOV #208, SLPERR [SET LOOP POINTER TO START OF TEST 

TTI TIT TITI TIT TTITITL TTT IIIT LITTLE Lk 

:STEST 36 BYTE ADDRESSING OF USER PAR'S 


THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING 
OF USER PAGE ADDRESS REGISTERS. IT CAN BE ASSUMED THAT IF 
ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS 
HAVE ALL BEEN TESTED. 


MARAAAARAAAASZASLALALASAAAALARELES ELAR REAR ERASER AAA RR ARS DS SO 


te 
is 
18136: SCOPE 


T 
20$: MOV  #11$,$LPERR ;SET LOOP ON ERROR POINTER TO 11$ 
MOV #14 ,R2 PUT EXPECTED DATA IN R2 
MOV #UIPARO,RO [PUT ADDRESS OF REGISTER IN RO 
11$: CLR UIPARO :CLEAR THE REGISTER UNDER TEST 
MOVB  #172014,(RO) LOAD LOWER BYTE OF REGISTER 
MOV _—UIPARO,R1 [READ REGISTER INTO 
cMP R1,R2 SEE IF ONLY LOWER BYTE WAS WRITTEN 
BEQ 1$ :BRANCH IF DATA MATCHES 
ERROR +33 {DIDN'T LOAD CORRECT BYTE 
1$: MOV  #12$,$LPERR SET LOOP ON ERROR POINTER TO 128 
MOV  MUIPARO+1.RO POINT TO UPPER BYTE OF REGISTER 
MOV  #52014,R2 [LOAD EXPECTED DATA INTO R2 
12$:  MOVB #124, (RO) WRITE UPPER BYTE OF REGISTER 
MOV UIPARO,R1 ZREAD REGISTER INTO R1 
CMP R12 SEE IF ONLY UPPER BYTE WAS WRITTEN 
BEQ 2$ ZBRANCH TO EXIT IF CORRECT 
ERROR +33 “DIDN'T LOAD CORRECT BYTE 
2s: MOV  #20$,$LPERR [SET LOOP POINTER TO START OF TEST 
j [ RERAA ASR RREEA RRR R EERE REET R RRR ERE RRR RRR RRR ENTER 
*TEST 37 BYTE ADDRESSING OF KERNAL PDR'S 
** 
ie THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING 
ze OF KERNAL PAGE DESCRIPTOR REGISTERS. IT CAN BE ASSUMED THAT IF 
i* ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS 
ie HAVE ALL BEEN TESTED. 
MS mre oe oe Seca ee 
11 SCOPE 
20$: MOV #11$,S$LPERR :SET LOOP ON ERROR POINTER TO 118 
MOV #14 ,R2 PUT EXPECTED DATA IN 
. MOV wk IPDRO, RO ;PUT ADDRESS OF REGISTER IN RO 
i1$: CLR IPDRO :CLEAR THE REGISTER UNDER TEST 
MOVE #172014,(RO) “LOAD LOWER BYTE OF REGISTER 
MOV _—«KIPDRO,R1 TREAD REGISTER. INTO RI 


CMP R1,R2 SEE IF ONLY LOWER OB TE WAS WRITTEN 
BEQ 1$ [BRANCH IF DATA MATCHES 


J 
aed 11/44 MEM MGMT PRT A MACRO M1111 26=SEP=79 12:27 PAGE 26-3 
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+33 DIDN'T LOAD CORRECT BYTE 
beeen 152660 1$: Vv #12$,$LPERR 


052014 
000124 12$: #124, (RO) 3 E 
144030 KIPDRO,R1 ;READ REGISTER INTO R 
ga eRe I UPPER er WRITTEN 


+33 : T BYT 
026256 012767 026162 152624 2%: V #20$,$LPERR SET LOOP POINTER TO START OF TEST 
; RRRRARRAAEREREEER RARER ERERR RR ERRER RR RRR ER ERATE RRRER ERR RE EEE EE 


:*TEST 40 BYTE ADDRESSING OF SUPERVISOR PDR'S 
** 


THIS TEST CHECK THE LOGIC ASSOCIATED WITH A oy ADDRESSING 
OF KERNAL PAGE DESCRIPTOR REGISTERS. IT CAN BE ASSUMED THAT IF 
: ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS 
; HAVE ALL BEEN TESTED. 
M4 POT TT TET TET TTT TTT TTT TTT TTT TITTLE LLL 
T es 
152614 20$ #11$,$LPERR ;SET LOOP ON ERROR POINTER TO 118% 
#14,R2 PUT EXPECTED DATA IN R2 
#SIPDRO,RO -PUT ADDRESS OF REGISTER IN ny 
SIPDRO 
#172014, (RO) zL L 
SIPDRO,R1 ;READ REGISTER INTO R 
Tia 2 SEE IF ONLY LOWER oA WAS WRITTEN 


11$: 


+33 
152554 : MO #12$,$LPERR 
;POINT TO UPPER BYTE OF REGISTER 
;LOAD EXPECTED DATA INTO R2 
[WRITE UPPER BYTE OF Dnata 
SIPDRO, R1 TREAD REGISTER INTO 
ae R2 S$ UPPER BY vTE cm WRITTEN 


+33 2D L ECT BYTE 
012767 152520 2%: MOV #20$,SLPERR :SET LOOP POINTER TO START OF TEST 


j [REAAAERRR ERR A ARERR ATER ERE TR EERE EER TERRE AREER EERE 


s*TEST 41 BYTE ADDRESSING OF USER PDR'S 


THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING 
OF USER PAGE DESCRIPTOR REGISTERS. IT CAN BE ASSUMED THAT IF 
ONE REGISTER oi THEY ALL WORK BECAUSE THE REGISTERS 
HAVE ALL BEEN TESTED. 
PITTI TIT it ett iit ttt ict i iii i iti ii itiiiiiiiiiiiii iii i iii. 
141: 
$: #11$,$LPERR ;SET LOOP ON ERROR POINTER TO 118% 
#14,R PUT EXPECTED DATA IN R2 
#UIPDRO,RO 


UIPDRO 

#172014, (RO) L 

UIPDRO,R1 READ REGISTER INTO R1 

ah Me 7 SEE IF ONLY ee oe WAS WRITTEN 


+33 L CT BYTE 
152450 ¢ MO #12$,$LPERR [SET LOOP ON ERROR POINTER 10 12% 
#UIPDRO+1 ,RO ;POINT TO UPPER BYTE OF REGISTER 


026370 


2@ 
oe 
** 
-* 
-* 
i 
0 


152510 
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BYTE ADDRESSING OF USER PD 


012702 
0 


3 
012767 


052014 
000124 
151120 


026372 


con's M1111 


12$: 


152614 28: 


26-SEP=79 12:27 PAGE 26-4 


#52014 ,R2 
#124, (RO) 
UIPDRO,R1 
R1,R2 

2$ 


+33 
#20$,$LPERR 


Ae Ty EXPECTED DATA INTO R2 
TE UPPER BYTE OF oo 
READ REGISTER INTO R 
;$ ONLY UPPER BYTE WAS WRITTEN 


; IF 
sBRANCH TO EXIT IF CORRECT 


DIDN'T LOAD CORRECT BYTE 
;SET LOOP POINTER TO START OF TEST 


SEQ 9062 


ee 11/44 MEM MGMT PRT A MACRO M1111. or 12:27 PAGE 57 
T42 DUAL ADDRESSING FOR ALL PAR'S & PDR 


2065 FF REAR RE RARER EEREEKERREEEREEEEREEREREEREEEREEREEREEEER ERED 


2 TEST 42 DUAL ADDRESSING FOR ALL PAR‘S & PDR'S 
THIS TEST WILL bok THAT THERE IS NO DUAL ey 
TWEEN GROUPS OF PAR'S AND PDR’ T I YOU 


BE HAT IS, 

REFERENCE A KERNAL I=-SPACE PAR YOU ARE REALLY REF ERENC ING 
THAT PAR. FIRST EACH I-SPACE PARO OR PDRO IS LOADED WITH 
A UNIQUE NUMBER 0-12 AND THEN THEY ARE EACH CHECKED FOR 

THE CORRECT DATA. 

EACH GROUP HAS ALREADY yn oy ey FOR DUAL ADDRESSING 
WITHIN ITS OWN GROUP, SO ONLY ONE REGISTER FROM EACH 
GROUP NEEDS TO BE TESTED. 


MASAAAAAAAALALASALALARSA ASSL ALE LALLA LEAR ARERR ARR AAR RASA ASRS ESS 


e&e 
ee eeeenennenee 


—qtetes 
wn 
“4 
a 
Nm 


026474 000004 : 
2046 026476 026512 152404 : #1$,$LPERR zSET LOOP ON ERROR POINTER f° 1$ 
2047 026504 005000 RO ‘THIS WILL HOLD THE INDEX OF EACH 
2048 SREGISTER, AND THE COUNT LOADED. 
2049 026506 000006 #6,R “NUMBER OF TIMES TO DO THE LOOP 
2050 026512 001356 : RO. SPARTAB(RO) SLOAD PAR OR PDR WITH INDEX NUMBER 
000002 #2.RO [CHANGE INDEX TO POINT TO NEXT REGISTER 
Rs, 13 [BRANCH BACK 5 TIMES 
000006 [DO NEXT LOOP 6 TIMES 
000006 152352 108 SLPERR ‘SET LOOP ON ERROR POINTER TO 10$ 
000002 2$: #2,R SADJUST INDEX FOR REGISTER DESIRED 
001356 : @PARTAB(RO),R1 :READ PAR OR PDR INTO R1 
C RO,R1 [SEE IF INDEX EQUALS DATA 
3$ “BRANCH IF INCORRECT REGISTER WAS READ 
001356 PARTAB(RO) .R2 STER 
+ 


3$: 08 R4,2$ MES 
012767 026476 152320 #20$.SLPERR SET LOOP ON ERROR POINTER TO START OF TEST 


SL AAR EERE EERE ARERR RRERERAEEREKEERERAE EERE ERKEEEREEE 


:*TEST 43 TEST THAT PAR-PDR'S NOT AFFECTED BY RESET 

THIS TEST CHECKS A SEE THAT THE KERNEL SUPERVISOR OR en 
PAR/PDR'S ARE NOT AF E C 

INSTRUCTION. ALL WRITEABLE BITS ARE SET T He 
Seti Mg THEY ARE THEN READ TO SEE THAT. THEY REMAINED 


'MmADAAAAALAAZALALALSALALSAASESE ASAE AAAS ERAS ARERR RRR SAR RASA SLADE SD | 


143: 


. 
+ =e eee 


—gte Be Be S sense 


026570 
4 


~ 
w 


;LOAD LOOP COUNTER WITH A 16 
[LOAD FIRST ADDRESS OF PDR INTO R17 
ZLOAD FIRST ADDRESS OF PAR INTO R2 
#~-1,(R1S+ :SET BITS IN PDR TO 1°S 
#~-1.(R2)+ ‘SET BITS IN PAR’S TO 1'S 
R3 218 : 


#20,R3 sLOAD L ws 
#SIPDRO,R1 ;LOAD FIRST ADDRESS OF PDR INTO R1 
#SIPARO,R2 [LOAD FIRST ADDRESS OF PAR INTO Re 
#~-1,(R1)+ SET BITS IN PDR TO 1°S 

012722 #-1,(R2)+ SET BITS IN PAR'S TO 1°S 


2075 
2076 026572 
2077 026576 
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2094 026674 
2095 026676 


177777 


172300 


MACRO M1111 —" 12:27 PAGE 27-1 


R3,22$ 
#20,R3 
#UIPDRO, R1 
MUIPARO,R2 
#-1,(R1 j + 
#-1,(R2)+ 
R3,23$ 


#kKIPDRO,RO 


; LOOP UNTIL ALL ea PAR/PDR'S LOADED 
;LOAD LOOP COUNTER WITH A 16 

‘LOAD FIRST ADDRESS OF PDR INTO R1 

LOAD FIRST ADDRESS OF PAR INTO R2 

;SET BITS IN PDR TO 1°S 

SET BITS IN PAR'S TO 1°S 

[LOOP UNTIL ALL USER PAR/PDR'S LOADED 

; ISSUE AN ‘‘INIT’* BY EXECUTING A RESET 


[LOAD ADDRESS OF FIRST KERNEL PDR IN RO 





N 
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TEST THAT PAR=PDR'S NOT AFFECTED BY RESET ; SEQ 0065 
2097 026702 012704 000020 MOV #20 ,,R4 ;LOAD LOOP COUNTER 4 TH A 16 
2098 026706 01100 2$: MOV (RO) ,R1 ;READ A KERNEL PDR INTO R1 
2099 026710 022701 177416 CMP #177416,R1 ARE ALL THE BITS STILL SET? 
2100 026714 001401 BEQ 3$ BRANCH IF YES 
2101 026716 104023 ERROR +23 KERNEL PDR AFFECTED BY A RESET 
2102 FOR TIGHTER SCOPE LOOP 
2103 ;REPLACE ERROR CALL WITH 
2104 ;‘BR 2$"' 773 
2105 026720 062700 000002 3$: ADD #2,R0 FORM ADDRESS OF NEXT KERNEL 
2106 026724 077410 SOB R4,2$ ;LOOP TO 2$ UNTIL ALL KERNEL POR’ S CHECKED 
2107 026726 012700 172340 MOV #K IPARO,RO [LOAD ADDRESS OF FIRST — PAR IN RO 
2108 026732 DES A 000020 MOV #20 ,R4 ;LOAD LOOP get WITH A 16 
2109 026736 4$: MOV (RO) ,R1 [READ A KERNEL PAR INTO R a1 
2110 026740 022701 177777 CMP #177777,R1 sARE ALL THE BITS STILL SET? 
2111 026744 001401 BEQ 5$ BRANCH IF YES 
2112 026746 104023 ERROR +23 KERNEL PAR AFFECTED BY A RESET 
2113 FOR TIGHTER SCOPE LOOP 
2114 :REPLACE ERROR CALL WITH 
2115 4$"* = 000773 
2116 026750 062700 000002 5$: ADD #2,R0 ; FORM ADDRESS OF NEXT KERNEL PAR 
sii% 026754 077410 SOB R4,4$ ;LOOP TO 4$ UNTIL ALL KERNEL PAR'S CHECKED 
2119 026756 012700 172200 MOV #SIPDRO,RO LOAD ADDRESS OF FIRST * et - eeu PDR IN RO 
2120 026762 012704 000020 MOV #20,R4 LOAD LOOP COUNTER WITH Ry 
2121 026766 011001 6$: MOV (RO) ,R1 ;READ A SUPERVISOR PDR INT R1 
2122 026770 022701 177416 CMP #177416,R1 GARE ALL THE BITS STILL SET? 
2123 026774 001401 BEQ 7$ BRANCH IF YES 
2124 026776 104023 ERROR +23 ; SUPERVISOR PDR AFFECTED BY A RESET 
2125 FOR TIGHTER SCOPE LOOP 
2126 REPLACE ERROR CALL WITH 
2127 :'BR 6$"* = 000773 
2128 027000 062700 000002 7$: ADD #2,R0 :FORM ADDRESS OF NEXT SUPERVISOR PDR 
af s4 027004 077410 SOB R4,6$ ;LOOP TO 6$ UNTIL ALL SUPERVISOR PDR'S CHECKED 
2131 027006 012700 172240 MOV #SIPARO,RO LOAD ADDRESS OF Ae & SUPERVISOR PAR IN RO 
2132 027012 012704 000020 MOV #20,R4 ;LOAD LOOP COUNTER WITH A 16 
2133 027016 011001 8$: MOV (RO) ,R1 ;READ A SUPERVISOR PAR INT 0 R1 
2134 027020 022701 177777 CMP #177777,R1 ARE ALL THE BITS STILL SET? 
2135 027024 001401 BEQ 9$ CH IF YES 
2136 027026 104023 ERROR +23 SSUPERVISOR PAR AFFECTED BY A RESET 
2137 FOR TIGHTER SCOPE LOOP 
2138 ; REPLACE ERROR CALL WITH 
2139 r $"* = 000773 
2140 027030 962700 000002 9$: ADD #2,R0 :FORM ADDRESS OF NEXT SUPERVISOR PAR 
$1¢> 027034 077410 SOB R4,8$ ;LOOP TO 8$ UNTIL ALL SUPERVISOR PAR'S CHECKED 
2143 027036 012700 177600 MOV #UIPDRO,RO LOAD ADDRESS OF FIRST a. PDR WITH RO 
2144 027042 012704 000020 MOV #20 ,,R4 LOAD LOOP COUNTER WITH A 16 
2145 027046 011001 10$: MOV (RO) ,R1 READ A USER PDR INTO R RI 
2146 027050 022701 177416 CMP #177416,R1 SARE ALL THE BITS STILL SET? 
2147 027054 001401 BEQ 11$ SBRANCH IF YES 
2148 027056 104025 . ERROR +23 :USER_PDR_ AFFECTED BY A RESET 
2149 FOR TIGHTER SCOPE LOOP 
Size ZREPLACE, ER ERROR oe L WITH 
2152 027060 062700 000002 118: ADD #2,R0 ; FORM ADDRESS OF NEXT USER PDR 
2153 027064 077410 SOB R4,10$ ;LOOP TO 10$ UNTIL ALL USER PDR'S CHECKED 


B 6 
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143 TEST THAT PAR=PDR'S NOT AFFECTED BY RESET 


177640 #UIPARO RO li’ ADDRESS OF FIRST 7 PAR IN RO 
000020 #20,R4 LOOP COUNTER WITH A 16 
: (RQ) ,R1 READ A USER PAR INTO Rt 
177777 #177777,R1 ARE ALL THE BITS STILL SET? 
13$ “BRANCH IF YES 
+23 seen PAR AFFECTED BY A RESET 
;FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR — WITH 
;'BR 12$°* = 00077 


: #2,R0 FORM ADDRESS OF NEXT USER 
077410 R4,12$ ;LOOP TO 12$ UNTIL ALL USER PPAR S CHECKED 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
é 
2 


a a a od 2 od tS 
GEALAVTIS SSIRAL 
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he INST. FETCH NOT RELOCATED IN MAINT. MODE 


2181 SREREERARRERREEEREEEEREEEERAAREREAREAREREREEEREREERRARERR EERE EE 
: TEST 4h INST. FETCH NOT RELOCATED IN MAINT. MODE 
THIS TEST CHECKS TO SEE THAT WHEN MEMORY MANAGEMENT IS_IN 
MAINTENANCE (D ret ake tor AN_INSTRUCTION 
T CLEARS THE FAINTENANCE BIT 


NGTH ABORT 
SHOULD OCCUR’ CAUSING A HALT SINCE TRAP CATCHER IS PLACED IN VECTOR 250 


Be Be Be Be Be 


NOTE: A HALT MAY OCCUR IF MAINT. MODE NOT DISABLED BY RESET 


—MmARARARARAAAAALAALALALAAAASASARARRAAARA LALA AR ARAL ALARA SARE A DD SS 


ST44: 

PC, TOFF ; TURN T-BIT TRAPPING OFF FOR THIS TEST 
#KIPDRO,RO [LOAD ADDRESS OF FIRST KERNEL PDR INTO RO 
#10,R4 [LOAD LOOP COUNTER WITH AN 8 
(RO) + >CLEAR PDR = MAPPING PAGE NON-RES, 0 BLKS. 
R4,2$ [LOOP TO 2$ UNTIL ALL KERNEL PDR'S CLEARED 
157102 AMMVEC +2 ,MMVEC : LOAD TRAP CATCHER INTO MEM MGM. VECTOR 


MMVEC+2 
A HALT WILL OCCUR IF RESET FAILS 
EST.-ONLY_RELOCATION 


wu. see eenennee 


ee ee ee ee ee 2 


027116 


nm 
wf 


143120 #1006,KIPDRO 
151722 oore $LPERR 
150376 : MOV 1T8,SRO OCAT ION 

;SHOULD CLEAR MAINT. BIT - WILL ABORT IF RELOCATED 


150366 7 ghd WAS Hee eit (BIT 8) OF SRO CLEARED? 


; BRANCH Y 
SRO CLEAR SRO SO ERROR CAN BE REPORTED 
+24 MAINT. MODE NOT DISABLED BY A RESET 

ZFOR A TIGHTER SCOPE LOOP 

:R cE ERROR CALL WITH 

3$"" 765 

#MKERSTK ,KSP RESTORE STACK POINTER 
SRO URE I 


#MGMERR , MMVE C 
000340 #340 PVeCs2 OR 
2 027240 027120 #1$,$LPERR RESET LOOP ON ERROR POINTER TO 1$ 
$Son 027246 004767 152754 PC, TON ; TURN T-BIT TRAPPING BACK ON 


2222 SEERA ERE AREER ARERR EARRERREARRAEERRAERAE EEE 


:STEST 45 TEST THAT SOURCE NOT RELOCATED IN MAINT. MODE 


THIS TEST CHECKS TO SEE THAT WHEN MEMORY MANAGEMENT IS IN 
NANCE T OURCE IS NOT RELOCATED: HE 


OO ee ee eee ee 


ESS 
T POR3 IS 
ADDRESSES REFERENCING PAR/PDR'S 4 AR 
DESTINATION AND SOURCE gp ay yh IF THE SOURCE I 
pd oe IN MAINTENANCE MODE A MEM. MGMT. TRAP WILL OCCUR 
AND THE ERROR WILL BE REPORTED. KERNEL PG. 7 IS MAPPED R/W. 


eet t titi iii iii iii i iii titi iiiiiiiiiii iii iii iris) 
145: SCOPE 
JSR PC, TOFF ; TURN OFF T-BIT TRAPPING FOR THIS TEST 


Be Be Be Be Be oe 


027252 000004 
2223 027254 004767 152712 
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145 TEST THAT SOURCE Not RELOCATED IN MAINT. MODE SEQ 0068 
2224 027260 012767 027350 151622 MOV #2$,$LPERR siey ON ERROR POINTER TO 2$ 
2225 027266 012767 000600 143052 MOV #600, KIPAR3 ‘MAP KERNAL PAGE 3 TO 12-16K 
2226 027274 012767 000600 143046 MOV #600, KIPARG *MAP KERNAL PAGE 4 TO 12-16K 
2227 027302 012767 007600 143046 MOV #7600,KIPAR7  ;MAP KERNAL PAGE 7 TO THE I/O, PAGE 
2228 027310 005067 142772 CLR KIPDR SMAP KERNAL PAGE 3 ‘NO ACCESS 
2229 027314 012767 077406 142766 MOV 477406.KIPDRG [MAP KERNAL PAGE 4 R/W, 128 BLKS 
2230 027322 012767 077406 142766 MOV #77406, KIPDR7 sMAP KERNAL PAGE 7 R/W, 128 BLKS 
2231 027330 012767 027430 150712 MOV #4$ ,.MAVEC sSET M.M. VECTOR TO 4$ IN CASE OF ABORT 
) 336 012737 000377 060000 MOV #377,a4%60000  :LOAD ALL 1°S IN LOW BYTE OF TEST LOC. 
2233 027344 012700 177777 MOV #=1,R0 ‘LOAD EXPECTED CONTENTS OF TEST LOC. IN RO 
2234 027350 052767 000600 150214 2%: BIS #B81T8,SRO ‘TURN ON DEST.-ONLY-RELOCATION 
2235 027356 113737 060000 100001 MOVB a#60000, a#100001: >LOAD HI BYTE OF TEST sRtoatos IF SOURCE RELOCATED 
2236 027364 000005 RESET [TURN OFF DEST.-ONLY-RELOCATION 
2237 027366 013701 060000 MOV a#60000,R1 “READ CONTENTS OF TEST LOC. 
2238 027372 020001 CMP RO,R1 ;WAS TEST LOCATION LOADED PROPERLY? 
2239 027374 001401 BEQ 3$ SBRANCH IF YES 
2240 027376 104025 ERROR +25 ; TEST LOC. NOT LOADED - INST. WAS ABORTED 
2241 TWHEN SOURCE WAS RELOCATED 
2242 [FOR TIGHTER SCOPE LOOP REPLACE 
2243 ERROR CALL WITH 
44 :‘BR 2$'' = 764 
2245 027400 012767 003122 150642 38: MOV WMGMERR,MMVEC  :RESTORE MEM. MGMT. VECTOR 
2246 027406 012767 077406 142672 MOV #77406, KIPDR3 sMAP KERNAL PAGE 3 R/W, 128 BLKS 
2247 027414 012767 027254 151466 MOV #1$,$LPERR *RESET LOOP ON ERROR POINTER TO 1$ 
2248 027422 004767 152600 JSR PC TON ; TURN T-BIT TRAPPING BACK ON 
2249 027426 000430 BR TST46 SKIP TO NEXT TEST 
$seq 3* IF THE PROGRAM TRIES TO RELOCATE THE SOURCE, IT SHOULD TRAP TO 4$ 
2252 027430 042767 00 150134 4$: BIC #81T8,SRO ; TURN OFF DEST. im THRU PAR/PDR 7 
2253 027436 016767 150130 151620 MOV SRO, WASSRO TSAVE REST OF SRO CONTENTS 
2 027444 016767 150126 151616 MOV SR2,WASSR2 + SAVE CONTENTS OF g ~ oe 
2255 027452 151600 MOV SP, WASR6 [SAVE VALUE OF THE STACK POINTER 
2256 027456 012667 151576 MOV (SP)+,TRAPPC = SAVE PC OF TRAP 
2257 027462 012667 151574 MOV (SP)+°TRAPPS  :SAVE PSW OF T 
2258 027466 042767 160000 150076 BIC #160000, SRO CLEAR ERROR Bits S IN SRO 
2259 027474 104026 ERROR +26 ; SOURCE APPARENTLY RELOCATED IN MAINT. MODE 
2260 FOR TIGHTER SCOPE LOOP 
2261 ;REPLACE ERROR CALL WITH A 
2262 :'NOP’’ = 000240 
2263 027476 016746 151560 MOV TRAPPS ,~ (SP) PUT PSW OF TRAP BACK ON THE STACK 
2264 027502 016746 151552 MOV TRAPPC ,-(SP) sPUT PC OF TRAP BACK ON THE STACK 


2265 027506 000002 RTI RETURN TO TEST 
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145 


027510 
2285 
2286 


2287 
2288 027512 


027726 


000004 


012705 
004767 
012705 
004 


17 
016737 


100000 
125200 
000400 


060000 


151244 
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060000 


é al NE lal te Nir i kl Das Deere Nan Sale Nell era ber hen Nel NO 
-SBTTL GROUP 3 DDER TESTS 
PG UNG I Nel Nol Nal Nod Nel RD Nel Nel Nel Nel Nel Nel Nel Nel Nel 


Z FERRARA AARREERREEERRARRERERARERERRAREARARKRARERAERERAEREARRREERR 


i*TEST 46 18-BIT MAPPING ADDER TEST 


THIS TEST USES "DESTINATION ONLY’ RELOCATION TO CHECK THE 
FULL ADD PROPERTIES OF THE RELOCATION ADDER. TWELVE PAIRS 
¥ on ton ADDED, GENERTING PHYSICAL ADDRESSES FROM 12k 


NOTE = PART OF THIS TEST WILL NOT BE RUN IF THERE IS LESS 
THAN 16K OF MEMORY ON THE SYSTEM. 


Pete e titi titi iii i iii ii iiticiiiiiiiiiiiiiiiiiiiiiiiiiiiiii iiss) 
746: SCOPE 
THE FOLLOWING CODE CLEARS ALL THE PAR'S AND PDR'S SO THAT 
THE RELOCATION ADDERS ~ "1 CHECKED. ONLY THE KERNAL 


3* 
re 
* 
* 
* 
* 
-* 
-* 
-* 
rs 


Be Be Be ae ee ae eee 


I-SPACE PAR'S AND PDR'S WILL BE MAPPED ether oan AND R/W. 
MOV #KIPARO,RS “PUT ADDRESS OF FIRST PAR IN R5 
JSR PC,CLRREG CLEAR KERNAL PAR‘ 

MOV #KIPDRO,RS [PUT ADDRESS OF FIRST PDR IN RS 
JSR PC,CLRREG CLEAR KERNAL PDR'S 

MOV #SIPARO,RS [PUT ADDRESS OF FIRST PAR IN R5 
JSR PC,CLRREG CLEAR SUPERVISOR PAR'S 

MOV #SIPDRO,RS [PUT ADDRESS OF FIRST PDR IN R5 
JSR PC, CLRREG CLEAR SUPERVISOR PDR'S 

MOV MUIPARO,R5 ;PUT ADDRESS OF FIRST PAR IN R5 
JSR PC, CLRREG CLEAR USER PAR'S 

MOV MUIPDRO,RS [PUT ADDRESS OF FIRST PDR IN R5 


JSR PC, CLRREG [CLEAR USER PDR'S 
40$: MOV #774606,RO [MAKE KERNAL I-SPACE PDR'S 4K,R/W,UPWARD 
MOV #10,R2 *SET COUNTER TO LOAD 8 ADDRESSES 
MOV #KIPDRO,R1 ‘PUT ADDRESS OF FIRST POR. IN R1 
41$: MOV RO,(R1)+4 [LOAD RO INTO PDR ADDRESSED BY R1 
SOB *BRANCH BACK TO 41$ IF ao IS NOT ZERO 
MOV #000 .KIPARO MAP PAGE 0 TO 0->4K 
MOV #200. KIPAR1 MAP PAGE 1 TO 4k->8k 
MOV #400. KIPAR2 : 2 TO 8k->12k 
MOV #600.KIPAR3 MAP PAGE 3 TO 12k=>16K 
MOV #177600 KIPAR? =MAP PAGE 7 TO I/O PAGE 
MOV #1$,$LPERR [SET LOOP ON ERROR POINTER TO 1$ 
MOV a#60000,$TMPO  :SAVE DATA AT TEST LOCATION 
MOV #600, a4KIPAR4 :LOAD PAR4 WITH 600 
MOV #100000,RO [PUT VIRTUAL ADDRESS IN RO 
MOV #125200.R1 ‘PUT DATA PATTERN INTO R17 
1$: BIS #8] 0 TURN ON DESTINATION ONLY RELOCATION 
MOV R1, (RO) ‘TRY TO LOAD DATA PATTERN INTO 100000 
MOV a#60000,R2 *READ (60000) INTO R2 
RESET [CLEAR MMRO 
CMP R1,R2 ‘SEE IF DATA MATCHES PATTERN 
BEQ 2$ SBRANCH IF DATA MATCHES 
ERROR +17 “RELOCATION FAILED 


2$: MOV $TMPO,a#60000 ;RESTORE ORIGINAL DATA TO TEST LOCATION 


SEQ 0069 





+ Sted inal Ay MGMT PR 


18-8 
2311 027734 
0 


0 
2313 Boiss 


030262 
2318 030270 


T MAPPING 


012767 


016737 
012767 


ADDE R 
027766 
per? 08 


00062 

105276 
125201 
000400 


067776 


072076 


151010 
152626 


001166 
030236 
100000 
001000 
100000 
125204 
000400 


~ 100000 
5 


150710 
030322 


132380 


177572 


072076 
001000 


MACRO M1111 
TEST 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


9o$: 


11$: 


12$: 
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#3$,SLPERR 
3467776, $TMPO 


#125201.R1 
#BI1T8, aeMMRO 
R1, (RO) 
a#67776,R2 


R1,R2 
4$ 


+17 
oe aioe 


#125202 "RI 
#8178, a4MMRO 
R1, (RO) 
a#71000,R2 


R1 R2 
6 


#125203,R1 . 


R1 (RO) 
Br rsG76. R2 


R1,R2 

8$ 

+17 

$TMPO ,a472076 
$LSTBK 41000 
9$ 

APTTST 
#11$,$LPERR 
ar) $7 
#1000 ,a@#K IPAR4 
#1 RO 
#125204,R1 
attr T8 arnrd 
F7100000. R2 


R1,R2 
12$ 


+17 
STMPO ,a4100000 
#13$,$LPERR 


SEQ 0070 


SET LOOP ON ERROR POINTER TO 3$ 
SAVE DATA AT_ TEST LOCATION 
LOAD PAR4 WITH 625 
;PUT VIRTUAL ADDRESS IN RO 
PUT DATA PATTERN INTO R1 
; TURN_ON DESTINATION ONLY RELOCATION 
;TRY TO LOAD DATA PATTERN INTO 105276 
SREAD (67776) INTO R2 


CLEAR MARO 
SEE , DATA Ga tate PATTERN 
H_IF DATA MATCHES 
RELOCATION FAILED 
RESTORE ORIGINAL DATA TO ey LOCATION 
LOOP ON ERROR POINTER TO 5$ 
SAVE DATA AT _TEST LOCATION 
LOAD PAR4 WITH 633 
;PUT VIRTUAL ADDRESS IN RO 
:PUT DATA PATTERN INTO R1 
; TURN_ON DESTINATION ONLY RELOCATION 
TRY TO_LOAD wt PATTERN INTO 105500 
:READ_(71000)" IN 0 R2 


; CLE 
: SEE IF re MATCHES PATTERN 


RT 
: SAVE DATA AT TEST LOCATION 
;LOAD PAR4 WITH 


;PUT VIRTUAL ADDRESS IN RO 

:PUT DATA PATTERN INTO R1 

: TURN ON DESTINATION ONLY RELOCATION 
TRY TO_LOAD DATA PATTERN INTO 111476 
:READ, (720 oo INTO R2 


7 SEE 4 "DATA oa tale PATTERN 
H_IF DATA MATCHES 
SRELOCATION FAILED 
: RESTORE ORIGINAL DATA TO TEST LOCATION 
;DO WE HAVE OVER 16K ON THIS SYSTEM? 
BRANCH IF WE DO 
; JUMP TO THE NEXT TEST IF WE DO NOT 


SET LOOP ON ERROR POINTER TO 11$ 

SAVE DATA AT TEST LOCATION 

LOAD PAR4 WITH 1000 

;PUT VIRTUAL ADDRESS 4! — 

PUT DATA PATTERN INTO 

; TURN_ON DESTINATION Ont Y RELOCATION 

Mel TO LOAD DATA PATTERN INTO 100000 
AD (100000) INTO R2 


tt CAR MRO 

[SEE IF DATA MATCHES PATTERN 

;BRANCH IF DATA MATCHES 

;RELOCATION FAILED 

:REST ORE ORIGINAL DATA TO TES! LOCATION 
;SET LOOP ON ERROR POINTER TO 13% 
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CKRTAAO re Se nee oat A . 
18=BI1T MAPPING ADDER TEST SEQ 0077 
030276 013767 137776 150672 MOV a#137776,$TMPO SAVE DATA AT TEST LOCATION 
030304 012737 001252 172350 MOV #1252, @AKIPARG :LOAD PAR4 WITH 1252 
030312 012700 112576 MOV #112576,RO :PUT VIRTUAL ADDRESS IN RO 
030316 012701 125205 MOV #125205 ,R1 ;PUT DATA PATTERN INTO R1 
030322 052737 000400 177572 13%: 81S #8178, a#MMRO : TURN ON DESTINATION ONLY RELOCATION 
030330 010110 MOV R1, (RO) Y TO LOAD DATA PATTERN INTO 112576 
030332 013702 137776 MOV a#i37776,R2 ‘READ (137776) INTO R2 
030336 000005 RESET [CLEAR MMRO 
030340 020102 CMP R1,R2 *SEE IF DATA MATCHES PATTERN 
030342 001401 BEQ 14$ *BRANCH IF DATA MATCHES 
030344 104017 ERROR +17 [RELOCATION FAILED 
016737 150626 137776 14%: MOV $TMPO,a4137776 :RESTORE ORIGINAL DATA TO TEST LOCATION 
2319 030354 012767 030406 150526 MOV #15$, $LPERR ‘SET LOOP ON ERROR POINTER TO 15$ 
%2 013767 117776 150606 MOV a#117776,$TMPO SAVE DATA AT TEST LOCATION 
030370 012737 001125 172350 MOV #1125, @"KIPARG :LOAD PAR4 WITH M1125 
030376 012700 105276 MOV #105276,RO [PUT VIRTUAL ADDRESS IN NRO 
030402 012701 125206 MOV #125206.R1 ;PUT DATA PATTERN INTO R 
030406 052737 000400 177572 15$: BIS #8178, a4MMRO : TURN ON DESTINATION ay RELOCATION 
030414 010110 MOV R1, (RO) TO LOAD DATA PATTERN INTO 105276 
030416 013702 117776 MOV a#i17776,R2 {READ (117776) INTO R2 
030422 000005 RESET [CLEAR MARO 
030424 020102 CMP R1,R2 = SEE IF DATA MATCHES PATTERN 
030426 001401 BEQ 16$ SBRANCH IF DATA MATCHES 
030436 104017 ERROR +17 SRELOCATION FAILED 
030432 016737 150540 117776 16$: MOV STMPO 84117776 ;RESTORE ORIGINAL DATA TO TEST LOCATION 
2320 030440 012767 030472 150442 MOV #17$,$LPERR :SET LOOP ON ERROR POINTER TO 17$ 

030446 013767 102000 150522 MOV @#102000,$TMPO :SAVE DATA AT TEST LOCATION 
030454 012737 001010 172350 MOV #1010, @4KIPARG :LOAD PAR WITH H 1010 
030462 012700 101000 MOV #101000,RO :PUT VIRTUAL ADDRESS IN N_RO 
030466 012701 125207 MOV #125207.R1 :PUT DATA PATTERN INTO R 
030472 052737 000400 177572 17%: BIS #BIT8,a4MMRO =: TURN ON DESTINATION may RELOCATION 
030500 010110 MOV R1, (RO) *TRY TO LOAD DATA PATTERN INTO 101000 
030502 013702 102000 MOV a#102000.R2 [READ (102000) INTO R2 

30506 000005 [CLEAR MMRO 


EAR 
R1,R2 SEE IF DATA MATCHES PATTERN 
18$ CH IF DATA MATCHES 


+17 
102000 $TMPO,a#102000 
150356 #19$, $LPERR 7S R 
150436 @#142000,$TMPO :SAVE DATA AT TEST LOCATION 
172350 #1314, @AKIPARG =LOAD PARG WITH 1314 
#110400,R0 [PUT VIRTUAL ADDRESS IN RO 
#125210.R1 ‘PUT DATA PATTERN INTO R1 
177572 : #BIT8.a4MMRO =: TURN ON DESTINATION ONLY RELOCATION 
R1, (RO) ‘TRY TO LOAD DATA PATTERN INTO 110400 
a4#142000,R2 TREAD (142000) INTO R2 
[CLEAR MMRO 
R1,R2 ‘SEE IF DATA MATCHES PATTERN 
208 SBRANCH IF DATA MATCHES 
+17 *RELOCATION FAILED 
STMPO.@4142000 RESTORE ORIGINAL DATA TO TEST LOCATION 
L T LOOP ON ERROR POINTER TO 21$ 
; SAVE DATA AT TEST LOCATION 
“LOAD PAR4 WITH 1104 
[PUT VIRTUAL ADDRESS IN RO 
MO ‘PUT DATA PATTERN INTO R1 
052737 0004 : T8,a4#MMRO =: TURN ON DESTINATION ONLY RELOCATION 
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2324 


03 
2325 
0 


2326 


18-B1T MAPPING ADDER TEST 


031176 


010110 
013702 
000005 


122000 


150304 
030726 
000 


150220 
031012 
142000 
001242 
115600 
125213 
000400 


142000 


H 
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MOV R1, (RO) 
MOV a4#122000,R2 
RESET 
CMP R1,R2 
BEO 22$ 
ERROR +17 
122000 22$: MOV $TMPO,a#122000 
150206 MOV #23$,$LPERR 
150266 MOV a#142000, $TMP 
172350 MOV #1356, @AKIPARG 
MOV #104200,R0 
MOV #125212.R1 
177572 23%: BIS #8178, a#MMRO 
MOV R1, (RO) 
MOV a#142000,R2 
RESET 
CMP R1,R2 
BEQ 24$ 
ERROR +17 
142000 24$: MOV $TMPO 24142000 
150122 MOV #258 SLPERR 
150202 MOV 142000,$ 
172350 MOV W249 OPK IPARG 
MOV 115600, RO 
MOV 4128913, R1 
177572 25$: _—«BIS #B1T8, a#MMRO 
MOV R1, (RO) 
Vv a#142000,R2 
td R1,R2 
BEQ 26$ 
ERROR +17 
142000 26$: MOV $TMPO,a#142000 
150036 MOV #27$,$LPERR 
150116 MOV 34142000, $TMPO 
172350 MOV #1377, a#KIPARG 
MOV #102100,R0 
MOV Wosotk R1 
177572 27%:  +—-BIS #BIT8, 0 
MOV R1, (RO) 
MOV a4#142000,R2 
RESET 
CMP R1,R2 
BEQ 28$ 
ERROR +17 
142000 28%: MOV $TMPO,a#142000 
147752 MOV #29$% ,S$LPERR 
150032 MOV 34142000, $TMPO 
172350 MOV #1221, @#k IPARS 
MOV #117700,RO 
3 MOV #125215.R1 
177572 29%: BIS #BITS, 24MMRO 
MOV R1, (RO) 
MOV a#142000,R2 
RESET 
CMP R1,R2 
BEQ 30$ 


;TRY TO LOAD DATA PATTERN INTO 111400 
READ. (122000) INTO R2 


;SEE IF DATA MATCHES PATTERN 
BRANCH IF DATA MATCHES 
RELOCATION FAILED 

[RESTORE ORIGINAL DATA TO 
SET LOOP ON ERROR POINTER T 
2 SAVE DATA AT TEST LOCATION 
; LOAD I 56 


Bey LOCATION 
0 23$ 


;PUT DATA PATTERN INTO R1 

; TURN _ON DESTINATION ONLY RELOCATION 
[TRY TO LOAD DATA PATTERN INTO 104200 
;READ (142000) INTO R2 

CLEAR MMRO 

;SEE IF DATA MATCHES PATTERN 

BRANCH IF DATA MATCHES 

RELOCATION FAILED 

RESTORE ORIGINAL DATA TO "es" LOCATION 
SET LOOP ON ERROR POINTER TO 25$ 

: SAVE DATA AT ania 


;PUT DATA PATTERN INTO R 
; TURN_ON DESTINATION ONLY RELOCATION 
:TRY TO LOAD DATA PATTERN INTO 115600 
[READ (142000) INTO R2 
CLEAR MMRO 
SEE 4 DATA oa hate PATTERN 

H_IF DATA MATCHES 
SRELOCATION FAILED 
RESTORE ORIGINAL DATA TO TEST LOCATION 
SET LOOP ON ERROR POINTER TO 27$ 
SAVE DATA AT TEST LOCATION 
SLOAD PAR4 WITH 1377 
:PUT VIRTUAL ADDRESS IN RO 
PUT DATA PATTERN INTO R1 
; TURN _ON DESTINATION ONLY RELOCATION 
:TRY TO LOAD DATA PATTERN INTO 102100 
READ (142000) INTO R2 


[CLEAR MMRO 

7SEE IF DATA MATCHES PATTERN 

:;BRANCH_IF DATA MATCHES 

SRELOCATION FAILED 

[RESTORE ORIGINAL DATA TO TEST LOCATION 

3SET LOOP ON ERROR POINTER TO 29% 
[SAVE DATA AT TEST LOCATION 

oe PAR4 WITH 1221 

VIRTUAL ADDRESS IN RO 

‘PUT DATA PATTERN INTO R1 
: TURN ON DESTINATION ONLY RELOCATION 
TRY TO LOAD DATA PATTERN INTO 117700 
:READ — INTO R2 


EAR MAR 
;SEE IF DATA MATCHES PATTERN 
[BRANCH IF DATA MATCHES 
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031204 
031206 
2327 031214 
031222 
31230 
1236 
031242 
031246 
031254 
031256 
031262 
031264 
1266 
031270 
031272 
2328 031300 
031 
031314 
031322 
031326 
031332 
31340 
031342 
31346 
031350 
031352 
031354 
031356 
2329 031364 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 031372 
2338 031376 
2339 031402 
031 
2341 031410 
2342 031416 
2343 031420 


$349 031446 
2350 
2365 


012767 


147614 
027572 


147742 
147642 
000042 
000200 
000026 


031440 
146332 


000004 
147666 
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ERROR +17 
142000 30%: MOV $TMPO,a#14200 
147666 MOV #31$, $LPERR 
167746 MOV 341460000, $TMP 
172350 MOV #1377, @AKIPARG 
MOV #100100,R0 


MOV #125216,R1 
177572 «318: BIS #8178, a4MARO 


MOV R1, (RO) 

MOV 24140000 .R2 

RESET 

CMP R1,R2 

BEQ 328 

ERROR +17 
140000 32$: MOV STMPO 24140000 
147602 MOV #33$,$LPERR 
147662 MOV aris ~STMPO 
172350 MOV #1370 ak IPARG 

MOV #101 


RO 
MOV #125217,R1 
177572 338: BIS #8178, a4MMRO 


C R1,R2 

BEQ 34$ 

ERROR +17 
140000 34$: MOV STMPO ,a4140000 
147516 MOV #40$,$LPERR 


ee ae FAILED 

RESTORE ORIGINAL DATA TO "at LOCATION 
;SET LOOP ON ERROR POINTER TO 31$ 

[SAVE DATA AT TEST LOCATION 


1 
; TURN_ON DESTINATION ONLY RELOCATION 
Jinp TO LOAD DATA PATTERN INTO 100100 
a INTO R2 


“SEE IF DATA MATCHES PATTERN 


RESTORE ORIGINAL DATA TO ay LOCATION 
3SET LOOP ON ERROR POINTER TO 33$ 

7SAVE DATA AT TEST LOCATION 

[LOAD PAR4 WITH 1370 

;PUT VIRTUAL ADDRESS IN RO 

PUT DATA PATTERN INTO R1 

[TURN ON DESTINATION ONLY RELOCATION 
TRY TO LOAD DATA PATTERN INTO 101000 
READ — INTO R2 


LEAR 

2 SEE 4 _. oa tate PATTERN 
F DATA MATCHES 

TRELOCATION FAILED 

RESTORE ORIGINAL DATA TO TEST LOCATION 

7SET LOOP ON ERROR POINTER TO 40$ 


LARA ERR EERE ERE REAR REAKEERERREAREREERERAEREREREKRO KE 


;* THIS PIECE OF CODE CHECKS TO SEE IF THE PROGRAM IS RUNNING UNDER 


3* APT, 


AND THEN LOOKS FOR THE a SPECIAL ADDRESSING HARDWARE. 
;* THE HARDWARE IS FOUND, THE NEXT 


IF 
TwO TESTS A AS IF THERE 


* WERE A FULL COMPLEMENT OF MEMORY ON THE SYST 


eR RRERERRERREREE EERE ER RER EERE ER ERE R EERE ERE E EERE RRR 


APTTST: CLR HDWF LAG 
TSTB SENV 
BNE 1$ 
JMP TST47 
147632 1$: BIT #BIT7,SUSWR 
BNE 2$ 
JMP TST47 
146352 2$: MOV #3$ ,.ERRVEC 
TST RMIREG 
BR 4 
3$: ERROR +60 
JMP TST47 
4$: INC HDWF LAG 


RESET THE HARDWARE PRESENT FLAG 
zARE WE UNDER APT? 

; CH IF WE ARE 

ZELSE GO TO TEST 47 

71S THE ; oe re SUPPOSED TO BE THERE? 


S BRANCH 
ELSE GO TO TEST 47 
; TRAPS 4 3 


>SET SPECIAL HARDWARE PRESENT FLAG 


SPARE RRA EAAEERRARERERAAEEAERRAAERAEEREEAERAREREE ERE 


i*TEST 47 18-BI1T MAPPING CARRY PROPAGATION 

i THIS TEST USES FULL 18-BIT RELOCATION TO CHECK THE CARRY 

3@ PROPAGATION OF THE RELOCATION ADDER. SINCE THIS TEST SCANS 
:* MEMORY FROM 00100000 TO 00740000 ON 8k BOUNDARIES, IT WILL 
* REPORT ANY HOLES THAT IT FINDS IN MEMORY UP TO THE LAST 


SEQ 0073 


J 6 
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147 18-BIT MAPPING CARRY PROPAGATION SEQ 0074 


BLOCK. THE INFORMATION GIVEN WILL BE THE ADDRESS WHERE 
| oe WAS DISCOVERED AND THE FIRST GOOD ADDRESS AFTER 


NOTE = PART OF THIS TEST WILL NOT BE a f THE SYSTEM 
MEMORY SIZE IS LESS THAN 16K WOR 


031452 000004 


2367 031454 012700 100100 #100100,R0 ; LOAD ee ADDR FOR PAR4 INTO RO 
368 031460 000001 177572 #1, aR TURN ON 18-BI1T MAPPING 
147646 HDWF LAG SPECIAL HARDWARE ? 


20$ BRANCH IF TRUE 
151322 $LSTBK ,#1000 1S THERE AT LEAST 16K ON THE SYSTEM? 
4$ :BRANCH IF LESS THAN 16K TO 4$ 
147626 : HOLFLG MAKE SURE HOLE FLAG STARTS AT ZERO 
#10$,ERRVEC [SET ERROR VECTOR POINTER TO 10$ 
#777 ,KIPARG [LOAD PAR4 WITH STARTING BASE 
7START ADDRESSING WITH 16K 
;LOAD VIRTUAL ADDR FOR PARS INTO R1 
#375 ,R2 ;LOAD DATA PATTERN INTO R2 
147340 #1$,$LPERR ;SET LOOP ON ERROR POINTER TO 1$ 
: PCPUER ; CLEAR RROR FLAG 


147560 HDWF LAG 


2$ ; F FALSE 
140564 151232 KIPARS,$LSTBK  ;ARE WE OUT OF EXISTING MEMORY? 
21$ ;BRANCH IF TRUE 
147400 (R1) ,$TMPO SAVE DATA AT TEST LOCATION 
147530 PCPUER 3 T 
BN’ 3$ 
147526 ss 


140534 147362 KIPARS , STMP2 
031504 147262 MOV i -SLPERR 
+ 


147502 HOLFLG 


000400 
146116 DATA_IN SPECIAL HARDWARE 
ZREAD TEST LOCATION VIA DIFFERENT VIRT. ADDR. 
oe THE CORRECT LOCATION WAS REFERENCED 
H IF CORRECT DATA WAS OBTAINED 


42 RELOCATION 
147210 : MO . “RESTORE ORIGINAL DATA TO TEST LOCATION 
000400 140454 ;CHANGE BASE ADDRESS 

000400 140450 #400,KIPARS 


R2 
007400 140440 Nata certian 


ADDRESS 
BRANCH IF NOT PAST LAST ADDRESS 
147416 HOLFLG SEE IF YOU ARE IN MIDDLE OF HOLE 
4$ CH IF NOT IN MIDDLE OF HOLE 
HOLE IN MEMORY 


[BRAN 
get) 031722 +43 i IN MIDDLE OF HOL 
2412 LFLG HAS NUMBER OF TIMEOUTS 
2413 :$STMPT HAS PAR OF FIRST TIMEOUT 
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147 18=BiT MAPPING CARRY PROPAGATION SEQ 0075 


GENERATED BY CARRY PROPAGATION WHILE THE 
I TIME OUT. (760000 _ IS THE FIRST 1/0 
AR 


ADDRESS 760000 
PROGRAM A 

4 WILL CONTAIN 007577 AND RO HAS 100100 

E 


IS 
IS EXPECTI 

PAGE ADDRESS). KIP. 

(WHICH SELECTS KIPAR4 AND GENERATES ADDRESS 760000). IF THE 

WRONG BIT IN THE CPU ERROR REGISTER IS SET, OR IF NO TRAP 

TO ‘ERRVEC’ OCCURS AN ERROR IS REPORTED. 


2426 031744 
2427 031752 
2428 031760 
2429 031764 
2430 031772 
2431 031776 
2432 


24 

2455 032072 
2456 032076 
2457 032104 
2458 032112 
2459 032116 
2460 032122 
2461 032124 
2462 032130 
2463 032132 
2464 032136 


147410 
146032 
003024 


000020 
147334 


147326 


100100 
147219 
100100 


147176 
031504 


Aeenetunuueee 
a 


Ene Be He Be Be He Be we 


146040 
147136 
140370 


147342 


147072 
140320 


147034 
150740 


147242 


140244 
140236 


8$: 
146744 


* 
Ww 
ad 


HDWF LAG 
45$ 


RMIREG 
#TIMERR ,ERRVEC 


#40$ $LPE RR 
#7577 ,KIPARG 

#7600,R2 
#20. CPUEXP 
Rot RO) 


PCPUER 
6$ 
+44 


#16$,S$LPERR 
CPUEXP 

#7777 ,KIPARG 
@#100100,R1 
R1 

7$ 

+45 
#17$,$LPERR 
#7377, $LSTBK 


8 
#40, CPUEXP 
PCPUER 


$LSTBK ,KIPAR4 
100 ,.KIPAR4 


i 
a#100100,R1 
PCPUER 


8$ 
#100100,R0 
+46 


CPUE XP 
#20$,$LPERR 


: SPECIAL HARDWARE? 
BRANCH IF NOT 
MAKE SURE SPECIAL HARDWAE IS OFF 

STORE NORMAL ROUTINE FOR TRAPS THRU 4 
;SET LOOP ON ERROR BOUNTeR TO 40$ 
LOAD KIPAR4 WITH 007577 
+ LOAD DATA PATTERN INTO R2 

IBUS TIMEOUT 


; PAGE 4 
STHIS INSTRUCTION SHOULD TIMEOUT 


[OVER THE UNIBUS. 
SEE IF TRAP OCCURRED 
BRANCH IF TRAP 


:NO CPU TRAP 


ADDRESS 000000 IS GENERATED BY CARRY PROPAGATION. THEN, IF 
THERE IS LESS THAN 120K OF 
BLOCK ($LSTBK) IS USED AS A PAR AND A CARRY IS PROPAGATED TO 
CAUSE AN 18-BIT OVERFLOW. 


MEMORY ON THE SYSTEM, THE LAST 


:SET LOOP ON ERROR POINTER TO 16$ 
TRAPS THRU ERRVEC EXPECTED HERE 
GHEST VALUE POSSIBLE 


S ZERO 
THIS SHOULD READ ADDRESS ZERO INTO R1 
iSEE IF YOU READ ADDRESS ZERO 
yt Be WAS READ 


ON 
21S MEMORY ag sie < 7377 
BRANCH IF MORE THAT 120K ON SYSTEM 
2 EXPECTING NONGEXISTANT MEMORY ERROR 
CLEAR TRAP THRU ERRVEC FLAG 
[GET READY TO ge NON~EX1 STANT ~~ tg 
MAKE SURE WE'R 


OCCURED 
:SAVE Ay} ADDRESS FOR ERROR TYPEOUT 
NO T THRU ERRVE 
;NO (PU TRAPS EXPECTED 


:SET LOOP ON ERROR POINTER TO START OF TEST 
7;BRANCH TO NEXT TEST 


2465 032144 0004 BR TST56 
2467 peteeeeneeeee TRAP TO HERE THRU ERRVEC *eeeenannannnnnne 


2468 
2469 032146 147154 10$: MOV 


(KSP) +, OLDPC 
2470 032152 147152 MOV 


(KSP)+,OLDPS 


SAVE RETURN ADDRESS 
SAVE RETURN PSW 
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2471 032156 016767 145604 147146 CPUERR,PCPUER ;SAVE CPU ERROR REGISTER FOR TYPING 
000040 WAS TRAP NON-EXISTANT MEMORY 


147140 #40,PCPUER 
12$ s;BRANCH IF MEMORY EXISTS 
140150 150620 KIPAR4,SLSTBK ;SEE IF PAR4 MATCHES LAST BLOCK IN MEMOR 
11 BRANCH IF NO MATCH=ERROR IN COMPARE CIRCUITS 
031724 147114 #4$ ,OLDPC CHANGE RETURN ADDRESS IF AT TOP OF MEMORY 
BR 14$ BRANCH TO EXIT 
+47 A ell ExT OF MEMORY FOUND 


BR 14$ 7 BRANCH 
000020 147104 : #20,PCPUER SEE IF ADDRESS TIMED OUT 
13$ BRANCH IF NO TIME OUT,UNEXPECTED ERROR 

032230 147102 HOLFLG [HAS THIS HAPPENED BEFORE? 
scBs 032234 001003 15$ [BRANCH IF NOT FIRST TIMEOUT 
2484 032236 140110 146734 KIPARS ,$TMP1 ;SAVE PAR WHERE HOLE FIRST DISCOVERED 
2485 032244 147066 : HOLFLG ;KEEP COUNT OF SUCCESSIVE TIMEOUTS 
2486 032250 000411 


14$ SBRANCH TO EXIT 
147050 147044 : MOV - ila SMOVE PC > = UNEXPECTED ay + TYPEOUT 
+ 


147036 MOV SLPADR ,OLDPC 3 
HOLFLG ZCLEAR FLAG IN CASE IT WAS SET 
CPUERR ;CLEAR CPU ERROR REGISTER 
OLDPS ,~(KSP) PUSH OLD PSW ONTO STACK 
147016 OLDPC ,~(KSP) [PUSH RETURN ADDRESS ONTO STACK 
ote 032310 000002 RETURN TO TEST AND CONTINUE 


2509 LL RRR ERE EERE EEE Re 


22-BIT MAPPING CARRY PROPAGATION 


THIS TEST USES FULL 22-BIT RELOCATION TO CHECK THE CARRY 

PROPAGATION THAT PERTAINS TO | BIT ADDRESSES. THIS TEST 
SCANS MEMORY FROM 00740000 TO 16740000 OR THE LAST BLOCK, 
ON _8K BOUNDARIES. IF ANY HOLES. ARE +s" THE ADDRESS 
WHERE THE HOLE WAS DISCOVERED AND THE FIRST GOOD ADDRESS 
AFTER THE HOLE WILL BE REPORTED. 


NOTE - PART OF THIS TEST WILL NOT BE RUN IF THERE IS LESS 
THAN 120K ON THE SYSTEM. 


032312 000004 
2510 032314 ;LOAD VIRTUAL ADDR FOR PAR4 INTO RO 
11 032 0000,R 


LOAD VIRTUAL ADDR FOR PARS INTO R1 
140164 ING 


BNE 20$ 3 H IF THE 
150454 #7377 ,SLSTBK 31S THERE AT LEAST 120K ON THE SYSTEM? 
4$ ;BRANCH IF LESS THAN 1 
145426 : #10$,ERRVEC :SET_ ERROR VECTOR MPOINTER TO 10$ 
FL E SURE HOLE FLAG STARTS AT ZERO 
137760 #7377 ,KIPAR4 LOAD PAR4 WITH STARTING BASE 
137754 #7400 ,KIPARS ;LOAD BASE ADDRESS sue pre KIPARS 
000360 #360,R2 [LOAD DATA PATTERN INTO 
032410 146500 : MO #21$,$LPERR :SET_LOOP ON ERROR POINTER TO 21$ 
146724 : HDWF LAG 21S as Rg te HARDWARE ? 


$ 
525 03241 137730 150376 KIPARS ,$LSTBK TARE WE OUT “OF MEMORY SPACE? 
2526 032424 23$ BRANCH IF WE ARE 
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2527 98 43 005067 1467 22$: PCPUER CLEAR CPU ERROR FLAG 
2528 0324 (R1) ,$TMPO 7SAVE DATA AT TEST 4 eS te 
2529 0324 PCPUER SEE IF THERE WAS A CPU TRAP 
2530 032442 BNE 2s 
2531 032444 HOLFLG 
2532 032450 001411 2s 
2533 032452 137674 146522 : KIPARS ,STMP2 
2534 032 032350 146422 —e 

> 


146642 E FLAG IN CASE THE E 
“LOAD TEST PATTERN INTO TEST LOCATION 
BRANCH OVER nel FEW INSTRUCTIONS 
GET CURRENT DATA VALUE 
000400 SET SPECIAL HARDWARE ENABLE BIT 
145256 MOV ;SETUP SPECIAL HARDWARE 
;READ TEST LOCATION VIA DIFFERENT VIRT. ADDR. 
SEE a THE CORRECT LOCATION WAS REFERENCED 
H IF CORRECT DATA WAS OBTAINED 
1 BAD RELOCATION 22-B1T MAPPING 
146450 : MOV RESTORE ORIGINAL DATA TO TEST LOCATION 
000400 137614 [CHANGE BASE ADDRESS 
000400 137610 ADD #400 ,KIPARS : CHANGE BASE ADDRESS 
R : CHANGE DATA PATTERN 


2 
2550 032544 137600 150250 KIPARS,$LSTBK ;1S THE PAR ABOVE THE LAST BLOCK OF MEMORY 
2551 032552 [BRANC V MEM. LOC. 

167400 137570 #167400,KIPARS ; — YOU DON'T GO ON THE UNIBUS 


2552 032554 
2553 032562 10 1$ ; BRANC SS 
146546 HOLFLG SEE IF MEMORY ENDS WITH A HOLE 


2554 032564 
2555 032570 BEQ 4$ BRANCH IF NO HOLE AT END OF MEMORY 
2556 032572 +52 ;HOLE AT END OF MEMORY 


UNIBUS ADDRESS 000000 IS GENERATED BY CARRY PROPAGATION 
SINCE THE MAP IS DISABLED, THIS SHOULD REFERENCE PHYSICAL 
ADDRESS 000000 


000020 : #B1T4 MARS sENABLE 22-B1T MAPPING 
003024 WTIMERR,ERRVEC RESTORE NORMAL ROUTINE FOR TRAPS THRU 4 
167777 #167777, KIPAR4 ;GET READY TO TEST U.B. ADDRESS 0 
000000 #000000;KIPARS SHOULD GO TO PHYSICAL ADDRESS 0 
017000 R LOAD DATA PATTERN INTO R2 
032650 [SET LOOP ON ERROR POINTER TO 5$ 
000020 SEXPECTING UNIBUS TIMEOUT 
146326 ;SAVE DATA IN LOCATION 0 ‘aime oat 4 
: [LOAD DATA PATTERN INTO TEST LOCATION 

R1) ,R3 ;READ TEST LOCATION VIA DIFFERENT VIRT ADDR 
146316 RESTORE ORIGINAL DATA USING PAGE 4 

R2,R3 7SEE IF DATA MATCHES 


BRANCH IF TRAP 
:BAD RELOCATION, UNIBUS ADDRESS 


ADDRESS 000000 IS GENERATED BY CARRY PROPAGATION. THEN, IF 
THERE IS LESS THAN 120K OF MEMORY ON THE SYSTEM, THE LAST 
BLOCK ($LSTBK) IS USED AS A PAR AND A CARRY IS PROPAGATED TO 
CAUSE A 22-BIT OVERFLOW. 


1 . 
2582 032666 012767 032712 146214 : MOV #16$,SLPERR ;SET_LOOP ON ERROR POINTER TO 16$ 
2583 032674 005067 146434 CLR CPUEXP [NO TRAPS THRU ERRVEC EXPECTED HERE 
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T50 22-B1T MAPPING CARRY PROPAGATION SEQ 0078 


2584 032700 012767 177777 137442 MOV #177777, ,KIPAR4 ;LOAD PAR4 WITH HIGHEST VALUE POSSIBLE 
2585 032 005037 000000 CLR [CLEAR ADDRESS ZERO 
586 032712 013701 100100 16$: MOV a47100100,R1 THI D wet ZERO INTO R1 
2587 032716 005701 TST R1 ;SEE IF YOU READ ADDRESS ZERO 
2588 032 001401 BEQ 7$ $ H IF ADDRESS ZERO WAS RE 
2589 032722 1040465 ERROR ;DIDN'T READ ADDRESS 
2590 032724 012767 032770 146156 7S: MOV PERR sSET L ON E IN TO 17$ 
2591 032 022767 167777 150062 CMP Wore? -SLSTBK ; S MEMORY BLOCK SIZE < 167777 
2592 032740 101423 BLOS 8$ CH IF MORE THAT 120K ON SYSTEM 
2593 032742 012767 000040 146364 MOV 440, CPUEXP TEXPECT ING NON-EXISTANT MEMORY ERROR 
25% 032 5067 146356 CLR PCPUER ;CLEAR TRAP THRU ERRVEC FLAG 
2595 032754 016767 150042 137366 MOV STK KIPAR4 GET READY TO GENERATE NON-EXISTANT ADDR. 
2596 032762 767 137360 ADD 00 .KIPAR4 [MAKE SURE WE ARE IN NON-EXISTANT MEMORY 
032 013701 100100 17$: MOV 3406 106100 TREAD FROM STANT ADDRESS 
2598 032774 005767 146332 TST ;SEE IF TRAP T C OCCURRED 
2599 033000 1003 BNE as ;BRANCH TO EXIT IF TRAP OCCURED 
03. 012700 100100 MOV #100100,R0 7 SAVE VIRTUAL nae Say FOR ERROR TYPEOUT 
03 104046 ERROR +46 *NO TRAP THRU ERRVEC 
2602 033010 5067 146320 8$: CLR CPUEXP NO CPU TRAPS EXPECTED 
2603 033014 012767 032350 146066 MOV #20$,$LPERR ;SET LOOP ON ERROR POINTER TO START OF TEST 
2604 03 5067 137470 CLR MARS RETURN TO 18-B1T MAPPING 
2605 033026 BR TST51 72BRANCH TO NEXT TEST 
2607 pxxaeekekeane TRAP TO HERE THRU ERRVEC **ennnnannannannnk 
2608 
2609 033030 012667 146272 10$: MOV (KSP) +, OLDPC 7SAVE RETURN ADDRESS 
2610 033034 012667 146270 MOV (KSP)+,OLDPS ; SAVE RETURN PSW 
2611 0330460 016767 144722 146264 MOV CPUERR ,PCPUER VE CPU ERROR REGISTER FOR TYPING 
2612 03. 022767 146256 CMP #40, PCPUER “WAS TRAP gp sre MEMORY 
2613 033054 001012 BNE ;BRANCH IF Y EXISTS 
2614 033056 026767 137266 147736 CMP KIPARS ,$LSTBK sSEE IF Pane PATCHES LAST BLOCK IN MEMORY 
2615 03 002404 BLT 11$ * BRANCH IF NO MATCH-ERROR IN COMPARE CIRCUITS 
16 03 012767 032574 146232 MOV #4$ ,OLDPC 7 CHANGE RETURN ADDRESS IF AT TOP OF MEMORY 
2617 033074 30 BR 14$ [BRANCH TO EXIT 
2618 033076 104047 11$: ERROR +47 ;PREMATURE END OF MEMORY FOUND 
2619 033100 26 BR 14$ ;BRANCH TO EXIT 
0331 022767 000020 146222 12$: CMP #20,PCPUER ;SEE IF ADDRESS TIMED OUT 
2621 033110 001011 BNE 13$ {BRANCH H IF NO TIME OUT, UNEXPECTED ERROR 
2622 033112 005767 146220 TST HOLFLG ;HAS THIS HAPPENED BEF ORE? 
2623 033116 001003 BNE 15$ [BRANCH IF NOT FIRST TIMEOUT 
2624 033 016767 137226 146052 MOV KIPARS,STMP1 ;SAVE PAR WHERE HOLE FIRST yt es 
2625 033126 005267 146204 15$: INC HOLFLG [KEEP COUNT OF SUCCESSIVE TIMEOUTS 
2626 0331 000411 BR 14$ * BRANCH TO EXIT 
2627 0331 016767 146166 146162 13$: MOV OLDPC ,BADPC sMOVE PC OF UNEXPECTED ERROR FOR TYPEOUT 
2628 033142 001 ERROR +1 ;UNEXPECTED TRAP THROUGH ERRVEC 
2629 033 016767 145736 146154 MOV SLPADR ,OLDPC RETURN TO BEGINNING OF TEST 
2630 033152 5067 146160 CLR HOLFLG ;CLEAR FLAG IN CASE IT WAS SET 
2631 033156 5067 144604 14$: CLR CPUERR CL AR CPU ERROR REGISTER 
2632 033162 016746 146142 MOV OLDPS ,-(KSP) ;PUSH OLD PSW ONTO S 
2633 033166 016746 146134 MOV OLDPC ,-(KSP) ;PUSH RETURN ADDRESS ONTO STACK 
te 033172 RT] ‘RETURN TO TEST AND CONTINUE 


2656 


FFARR AREER EERKEEEEERREEREREREEEREEEEREREEERERERE KEKE 


READ AND WRITE WHILE IN RELOCATE MODE 


:*TES! 51 
** 


. 
-* 
. 
-* 
‘ 


THE FOLLOWING TEST TURNS ON MEMORY MANAGEMENT AND THEN 
READS AND WRITES LOCATIONS BETWEEN PHYSICAL ADDRESSES 
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T51 READ AND WRITE WHILE IN RELOCATE MODE 


060000-067600. | ONE LOCATION IN EVERY BLOCK (32. WORDS) 

IS WRITTEN USING PAR4 AND READ USING PARS. THIS IS 

DONE IN BOTH USER AND KERNEL MODES. THE “MODE"* INPUT T 

THE. PAR/PDR ADDRESS MUX 1S. CHECKED BY READING AND. WRITING 
USER MODE. REMEMBER ALSO, THAT SINCE MEMORY MANAGEMENT 

IS ON (IN RELOCATE MODE) THE PROGRAM ITSELF IS USING ITS 

VIRTUAL ADDRESSES AND THE PAR/PDR'S TO EXECUTE. 


WHILE TESTING IN KERNEL MODE, USER PAGES 4 &@ 5 ARE MAPPED 
NON-RESIDENT WITH war tan PAR VALUES THAN THE KERNEL 
PAR'S TO BE SURE THAT THE KERNEL PAR'S AND PDR'S ARE BEING 
USED WHEN IN ae MODE (AND noe ottuae WHILE TESTING IN 
USER MODE). IF A MEM. MGMT. OCCURS, THE PROGRAM GOES 
TO 8$ WHERE THE TRAP IS REPORTED. 


RARER AEAEAEEEEARAERAAEAEAAERAERERAKRAARAAEAAEAARAERERREH 


T51: 


Sete te ee Be Be Be Be Be oe 
w:- #+e ee eee eee eRe eee 


4s 


033174 
2658 033176 
2659 033202 


— 
ww 


;START_IN KERNEL MODE 

;LOAD R4 WITH VALUE FOR PAR4 

;LOAD RS WITH VALUE FOR PARS 

LOAD KERNEL PAR4 

LOAD KERNEL PARS 

LOAD ADDRESS OF FIRST USER PAR IN RO 
ry ee OF FIRST SUPERVISOR PAR IN R3 


‘LOAD LOOP COUNTER WITH A 7 
:MAP USER PAR’S TO PAGES 0-6 (4k EACH 
MAP SUPERVISOR PAR'S TO PAGES 0-6 tax EACH) 


; LOOP UNTIL an oe — 


SPACE 
MAP SUPERVISOR SPACE NON-RESIDENT WHILE 
TESTING KERNEL SPAC 
“MAP USER PAR'S OPPOSITE OF KIPAR'S 
MAP SUPERVISOR PAR'S OPPOSITE OF KIPAR'S 


ON MEMORY MANAGEMENT (RELOCATE MODE) 
ER TO 5$ 


, a 
, ar 


1 
1 
1 
1 
1 
1 
1 
1 


Suvees 


E OF ERROR 
3 TUAL ADDR. THAT USES PAR4 IN RO 
[PUT VIRTUAL ADDR. THAT git ‘oe IN RI 
;WRITE TO TEST LOC. USING P 
;READ THE SAME LOC., BUT USING PARS 
2696 033414 RO,R :DID WE READ WHAT WE WROTE? 


sores 


: 
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2697 033416 6$ ;BRANCH IF YES 

2698 033420 145654 ;SAVE VIRTUAL ADDR. THAT SELECTED PARS 
2699 033424 010067 145646 7SAVE VIRTUAL ADDR. THAT SELECTED PAR4 

2700 033430 147564 5 F ORMP 7GO FORM PHYSICAL ADDRESS ¥r are 

2701 033434 2 ;READING LOC. USING PARS AND A VIR 

2702 SADDR. DID NOT FIND DATA ORITTEN WHEN USING 
2703 ;PAR4 AND VIRT. ADDRESS. 

2704 FOR TIGHTER SCOPE LOOP 

2705 REPLACE ERROR CALL WITH 

706 ;'BR 5$"' = 000765 


2 ; = 

2707 033436 34 VIRT1,RO ;RESTORE VBA IN RO 

2708 033442 062700 : 00,R0 : CHANGE VIRTUAL ADDRS. TO POINT TO NEXT BLOCK 
2709 033446 062701 000100 #100,R1 

2710 033452 R1,4#127700 ; WERE ha FROM 60000-67600 ALL TRIED? 
2711 033456 1354 CH 


BN’ 
144310 Al ° ZHA VE UE DONE TEST IN USER MODE YET? 


SER PARS 
44102 #6 ,UIPD "MAP USER SPACE R/W TO TEST IT 


1 
44076 
:MAP KERNEL SPACE NON-RESIDENT WHILE 
TESTING USER SPACE 
[MAP KERNEL PAR'S OPPOSITE UIPAR'S 


144234 :GO TO USER MODE 
BR :GO BACK AND READ/WRITE IN USER MODE 
144224 3 ; HAVE TEST IN SUPERVISOR MODE YET? 
BNE 10$ ; YES 


ISOR PARS 
MAP SUPERVISOR SPACE R/wW TO TEST IT 


759 033572 

2730 033600 105067 144004 = MAP USER SPACE NON-RESIDENT WHILE 
2731 033604 TESTING USER SPACE 

2732 033610 . MAP USER PAR'S OPPOSITE SIPAR'S 


2733 033614 
2734 033620 144150 G0 TO SUPERVISOR MODE 
BR 4$ BACK AND READ/WRITE IN SUPERVISOR MODE 
: PSW 60 BACK TO KERNEL MODE BEFORE LEAVING 
13eti8 . SREMAP KERNEL PAGES READ/WRITE 


1 2 
143732 . REMAP USER PAGES READ/WRITE 


143726 
;MAP KERNEL, SUPERVISOR AND USER PAR'S 4 & 5 
BACK TO 12-16k 
R5.UIPARG 
RS ,UIPARS 
R5, SIPARG 


R5.SIPARS 
37 WMGMERR,MMVEC :RESTORE ADDR. OF NORMAL M.M. TRAP ROUTINE 
33176 #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 

TsT§2 + BRANCH TO NEXT TEST 


pe eee eee eee TRAP TO HERE THRU ERRVEC REKEKERERE 
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151 


READ AND WRITE WHILE IN 


2753 

2754 033732 

2755 033736 

2756 

2757 

2758 

2759 toy 
60 


2764 033774 
2765 

2766 
2767 
2768 

2769 033776 
2770 034002 
2771 034006 


012667 
012667 


016746 
016746 
000002 


0) 
26-SEP=79 12:27 PAGE 31 


MACRO M1111 
RELOCATE MODE 
8$: MOV (KSP) +, TRAPPC 
MOV (KSP) +, TRAPPS 
MOV RO,VIRT1 
JSR PC’ FORMP 
145304 MOV SRO, WASSRO 
145302 MOV SR2.WASSR2 
143576 BIC #160000, SRO 
ERROR 
MOV TRAPPS ,-(KSP) 
a4 TRAPPC ,=-(KSP) 


SAVE PC & PS OF TRAP 


PROGRAM WILL TRAP TO HERE IF TRY 
:10 USE reeks ae i PDR'S WHEN IN KERNEL MODE 
[OR KERNEL PDR'S WHEN IN USER/SUPERVISOR MODE 
SAVE VIRTUAL paeaitie FOR ERROR REPORT 
:GO FORM THE PHYSICAL ADDRESS BEING USED 
7SAVE SRO & SR2 FOR ERROR REPORT 


+s ty ERROR BITS IN SRO 
T WHILE IN A as 
REFERENCED WRONG SET OF 
;FOR TIGHTER SCOPE LOOP 
REPLACE, E ERROR ah WITH 


;PUT PC & PS OF TRAP ON STACK 


;RETURN TO TEST 


SEQ 0081 
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oF Nol oe o Nol Nol Nol oNoloNol Nolo Nol Nol eNoleNoLoNol Nol eNoleNeleVo/ oN 
‘Sari GROUP 4 IT TESTS 
BF Ne eNeF Ne eNeFeNeFeNeFeNeFeNeeNeLeNoLeNoLeNeFeNeLeNoleNoleNeSeNeleVo/e\ 


wes )}6§6—6heenhl lit oe est )h![![hC:C:CO:™~C~ 
STEST 52 w-B81T tt ad ae 
THIS ea WRITES 1 0 El (8) DIFF FERENT VIRTUAL ADDRESSES 
(VBA'S = 776, 37796. 5 76. 77776,117776,137776,157776 & 177776 
& PBA’S c¢ TRUCTED = 17776, 377 Se 57776, 77776, 77776, 
77776, 77776, & 77776 RESPECTIVELY 

WHICH SHOULD CAUSE THE ‘W-BIT'' TO ser IN EACH OF THE | 
EIGHT (8) KERNEL _ ioe REGISTERS. 

ITS W-BIT DOES SET WHEN THE 


IT 
KERNEL PDR'S 3,4,5 & 6 
ARE MAPPED TO 12-16K FOR THIS TEST. ALSO THE W-81T 
oar BE CLEARED WHEN THE PDR IS WRITTEN TO. THE 
W-BIT PORTION OF THE PDR'S AND THE PAR/PDR ADRS MUX 
ARE BEING CHECKED. 


REAR AAAAAAAARAAAERAAARERAEREAAAAEEARAAAAREREEAEEEKKKAKEEEE 


rae 


146154 PC, TOFF TURN T-BIT on te OFF FOR THIS TEST 
000004 #4 ,R2 SET LOOP COUNTER 
172346 #k IPAR3,RO ;LOAD ADDRESS Fi "K1PARS INTO RO 
000600 #600,R1 LOAD '12-16k"' VALUE INTO R1 
R1,(RO)+ [MAP PARS 3-6 10 ein 16K 
R2, 28 ;LOOP UNTIL ALL 4 OF THEM ARE LOADED 
172300 #KIPDRO,RS [LOAD ADDRESS OF FIRST PDR TO BE TESTED IN RS 
000010 #8. RS ;SET LOOP COUNTER TO 8 
017776 #17776,R3 INITIALIZE VIRTUAL “een tl TO_BE IN R3 
034060 145030 ag SLPERR :SET LOOP ON ERROR POINTER TO 3$ 
172300 3$: PDRO,RO ;LOAD ADDR. OF FIRST PDR TO "BE SETUP IN RO 
000010 ‘5. Re :SET LOOP CONTER TO 8 
077406 #77406,R1 “W-BIT OFF DATA’ INTO R1 
: R1,(RO)+ CLEAR ALL W-BITS BY WRITING TO ALL PDRS 
R2,4$ ;LOOP UNTIL ALL OF THEM ARE SET UP 
(R3) , (R3) :D0 ‘DATO’ TO VIRTUAL ADDR.-SETTING A W-BIT 
(R5) ,AWBIT :DID THAT CAUSE W-BIT TO BE SET? 
$ BRANCH IF YES 
+54 ;W-BIT DID NOT GET SET IN PDR 
SOL yo oe on LOOP, REPLACE ERROR 
8$ 7SKIP CHECKING A PDR*S-ERROR WILL SET W-BiTS 
#8. ,R2 SET LOOP COUNTER TO 8 
#KIPDRO,RO ;LOAD ADDR. OF FIRST PDR TO BE CHECKED IN RO 
govt ES :DID ag IN OTHER PDRS REMAIN CLEAR? 


H IF YES 
R5,RO :1F W-BIT SET, THEN WAS IT PDR UNDER TEST? 
7$ CH IF YES 


“W-BIT GOT SET IN MORE THAN ONE PDR 
FOR T SCOPE LOOP, REPLACE ERROR 
:CALL WITH 'BR 3$" = 600750 
POINT RO TO NEXT PDR TO BE CHECKED 
:L0oP UNTIL ALL 8 CHECKED FOR CLEAR W-BIT 
WRITE TO THE BOR TESTED TO CLEAR W-BIT 


om; oeaeeeeaeneeeees. 


a ee ee ee ee ee ee ee ee | 
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TS2 W-BIT LOGIC TEST, KERNEL PDR'S 


031527 000100 (R5) ,MWBIT :DID WRITING PDR CLEAR THE w-BIT? 
Pg [BRANCH IF YES 
+56 ‘W-BIT DID NOT CLEAR BY WRITNG THE PDR 
;FOR TIGHTER SCOPE LOOP, REPLACE ERROR CALL 
‘WITH ‘BR 3$"° = 000740 
000002 : ‘POINT RS TO THE NEXT PDR TO BE TESTED 
020000 #56600, R3 ; CHANGE VIRT. ADDR TO REF. NEXT PDR 
R4,3$ LOOP BACK TO 3$ UNTIL ALL 8 POR® S TESTED 
034012 144710 #1$,$LPERR :RESET LOOP ON ERROR POINTER TO 1$ 
146022 PC, TON [TURN T-BIT BACK ON FOR NEXT Test 


RERRERAAEAKEEKEEEAKEKEAAAAAAERAKREAARAKEAAEAARAKRERERERARAAEARARAERARAAREEKEKRE 
;STEST 53 W-BIT LOGIC TEST. SUPERVISOR PDR'S 

THIS TEST WRITES TO EIGHT (8) DIFFERENT VIRTUAL ADDRESSES 
(VBA'S = 17776.37776, S776. 7706 117276 137776,157776 & 177776 
g PRAT. CONS TRUCTED = 7776, 57776, 77776, 77776, 
77776, 77776, & 77776 RESPECTIVELYS 
IN EACH OF 


WHICH SHOULD CAUSE THE ' SET THE 

EIGHT (8) SUPERVISOR PAGE DESCRIPTOR REGISTERS. THE PDR'S 

ARE CHECKED TC SEE THAT IT'S W-BIT DOES SET WHEN THE 

PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE W-8IT 

DOES NOT SET IN ANY OF THE OTHER PDR SUPERVISOR PDR'S 3,4,5 & 6 
ARE MAPPED TO 1 W-BIT 


Be Se Be Be Be Be He He 


Be Be 
OO ee eee eee 


ARE BEING CHECKED. 


MARAE AAALAAALASALALALAALALAAALERLSL LALA A REAR ERR RRR ARRAS ARRAS SS 


reas 
#40000 ,PSW :G0 TO SUPERVISOR MODE FOR THIS TEST 


em Be Oe Oe 


143562 


040000 

145752 PC, TOFF T-BIT TRAPPING OFF FOR THIS TEST 
000004 #4 ,R2 SET LOOP COUNTER TO 4 

172246 #SIPAR3,RO sLOAD ADDRESS OF SIPAR3 INTO RO 
000600 00 ; LOAD 


#600,R1 PAR VALUE INTO R1 
R1,(RO)+ 16K 
R2,2$ TIL ALL 4 OF THEM ARE LOADED 
#SIPDRO.RS “LOAD ADDRESS OF FIRST PDR TO BE TESTED IN RS 
#8. RG [SET LOOP COUNTER TO 8 
#17776,R3 : INITIALIZE VIRTUAL ADDRESS TO BE IN R3 
144526 #3$,$LPERR [SET LOOP ON ERROR POINTER TO 3$ 
3 #SIPDRO,RO ‘LOAD ADDR. OF FIRST PDR TO BE SETUP IN RO 
#8. .R2 :SET LOOP CONTER TO 8 
#77406,R1 "WeBIT OFF DATA’’ INTO R1 
R1,(RO)+ CLEAR ALL ws1Ts BY WRITING TO ALL PDRS 
R2.4$ “LOOP UNT L OF THEM ARE SET UP 
(R3), (R3) : 10 t IRTUAL ADDR.-SETTING A W-BIT 
(R5) .AWBIT : HA W-BIT TO BE SET? 
5$ BRANCH IF YES 


+54 


8$ : SKIP CHECKING OTHER PDR'S-ERROR WILL SET W-BITS 
#8. ,R2 2 SET . COUNTER TO 8 

#SIPDRO,RO ;LOAD ADDR. OF FIRST PDR TO BE CHECKED IN RO 
(RO) , AWE IT [DID WBIT IN OTHER PDRS REMAIN CLEAR? 

7$ : BRANCH YES 


IF 
R5,RO 71F W-BIT SET, THEN WAS IT PDR UNDER TEST? 
/$ BRANCH IF YES 
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153 W-BIT LOGIC TEST, SUPERVISOR PDR'S SEQ 0084 


2790 
2795 


2796 
2797 


034340 


104055 


000002 


000100 


000002 
020000 
34206 


0 
145620 
143364 


140000 
145544 


000004 
177646 
000600 


177600 
000010 
017776 
034470 
177600 
0000 


10 
077406 


000100 


144506 


143354 


144420 
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ERROR +55 zW-BIT GOT SET IN MORE THAN ONE PDR 
sFOR TGHTE SCOPE LOOP, REPLACE ERROR 
CALL WITH "BR 3$"' = 600750 
7$: ADD #2,RO ‘POINT RO TO NEXT PDR TO BE CHECKED 
508 R2.6$ : LOOP UNTIL ALL 8 CHECKED FOR CLEAR W-BIT 
“WRITE TO THE POR TESTED TO CLEAR W-BIT 


BIT (R5) ,#WBI1T [DID WRITING PDR CLEAR THE W-BIT? 
BEQ mE [BRANCH IF YES 
ERROR +56 tW-BIT DID NOT CLEAR BY WRITNG THE PD 
iFOR TIGHTER SCOPE LOOP, REPLACE ERROR CALL 
[WITH ‘BR 3$°° = 000740 
8$: ADD #2,R5 =POINT RS 10 THE NEXT PDR TO BE TESTED 
ADD #20000,R3 [CHANGE VIRT. ADDR TO REF. NEXT PDR 
S0B [LOOP BACK TO 3$ UNTIL ALL 8 PDR'S TESTED 
MOV #1$,SLPERR :RESET LOOP ON ERROR POINTER TO 1$ 
JSR . T-BIT BACK ON FOR NEXT TEST 
CLR PSW ‘BACK TO KERNAL MODE BEFORE LEAVING 
a ati at m= UCU 
TATEST 54 W-BIT LOGIC TEST, USER PDR’ 
* THIS TEST WRITES TO EIGHT (8) DIFFERENT VIRTUAL ADDRESSES 
:* (VBA'S = 17776,37776,57776.77776 117776 137776 157776 & 177776 
* & PRA'S cons TRUCTED = 17776, 37776, 57776. 77776, 77776, 
:8 77776, 77776, ty 77776 RESPECTIVELY). 
:* WHICH SHOULD CAUSE THE ‘W-BIT’’ TO SET IN EACH OF THE 
* EIGHT (8) USER PAGE DESCRIPTOR REGISTERS. THE PDR'S 
:* ARE CHECKED TO SEE THAT IT'S WBIT DOES SET WHEN THE 
8 PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE W-BIT 
* DOES NOT SET IN ANY OF THE OTHER PDR'S. USER PDR'S 3.4.5 & 6 
:* ARE MAPPED TO 12-16k FOR THIS TEST. ALSO THE W-BIT 
* SHOULD BE CLEARED WHEN THe PDR IS WRITTEN TO. THE 
:* W-BIT PORTION OF THE PDR'S AND THE PAR/PDR ADRS MUX 
te ARE BEING CHECKED. 
PETTITT Tit tT ttt TTT tte TTT TT itt iti titi ii iiiiiiitiiiiitiiiitit i 
15154: SCOPE 
1$: MOV #140000, PS 7GO TO USER MODE FOR THIS TEST 
JSR PC, TOF [TURN T-BIT TRAPPING OFF FOR THIS TEST 
MOV #4-R2 [SET LOOP COUNTER TO 4 
MOV #UIPARS, RO : LOAD ADDRESS OF YIPARS INTO RO 
MOV #600,R OAD '12=16k'" PAR VALUE INTO R1 
2s: MOV R1, CRO) + LAP pans 3-6 TO 12-16K 
SOB R2.2$ “LOOP UNTIL ALL 4 OF THEM ARE LOADED 
MOV #UIPDRO,RS *LOAD ADDRESS OF FIRST PDR TO BE TESTED IN RS 
MOV #8. RS 7SET LOOP COUNTER TO 8 
MOV Ih, R3 : INITIALIZE VIRTUAL ADDRESS TO BE IN R3 
MOV #3$,SLPERR :SET L LOOP ON ERROR POINTER TO 
3$: MOV #UIPDRO,RO LOAD ADDR. OF FIRST PDR TO BE SETUP IN RO 
MOV #8. .R2 SET LOOP CONTER TO 8 
MOV #77406,R1 "WeBIT OFF DATA’’ INTO R1 
4$: MOV R1, (ROS+ CLEAR ALL WBITS BY WRITING TO ALL PDRS 
SOB R2.4$ SLOOP UNTIL ALL OF THEM ARE SET UP 
MOV (R3), (R3) 7DO ‘DATO’' TO VIRTUAL ADDR.-SETTING A W-BIT 
BIT (R5) MWBIT ‘DID THAT CAUSE W-BIT TO BE SET? 
BNE 5$ ‘BRANCH IF YES 
ERROR +54 tW-BIT DID NOT GET SET IN PDR 


FOR TIGHTER § SCOPE. LOOP REPLACE ERROR 
*CALL WITH ‘BR 3$'' = 000763 









154 

















034 
2798 034614 





M MGMT 





PRT A 
OGIC TEST, USER PDR 


000010 
177600 
000100 


000002 


000100 


000002 
020000 
034414 


145412 
143156 


144300 


oats m1111 


5$: 
6$: 


7$: 


8$: 


H 7 
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8$ 

#8. ,R2 
#UIPDRO,RO 
(RO) ,AWBIT 
7$ 

R5,RO 


#2,R 
#26000, »R3 
#1$,$LPERR 


PSW 


SKIP CHECKING OTHER PDR'S-ERROR WILL SET W-8ITS 
s SET LOOP COUNTER TO 8 


“LOAD ADDR. OF FIRST PDR TO BE CHECKED IN RO 
‘DID W-BIT IN OTHER PDRS REMAIN CLEAR? 
“BRANCH IF YES 
‘IF W-BIT SET, THEN WAS IT PDR UNDER TEST? 
‘BRANCH IF YES 
;W-BIT GOT SET IN MORE THAN ONE PDR 
;FOR TGHTE SCOPE COP, REPLACE ERROR 
‘CALL WITH ‘BR 3$'' = 600750 
;POINT RO TO NEXT PDR TO BE CHECKED 

“LOOP UNTIL ALL ug CHECKED FOR CLEAR w-BIT 
‘WRITE TO THE PDR TESTED TO CLEAR W-SIT 
DID WRIT ING PDR CLEAR THE W-BIT? 

‘BRANCH IF YES 

‘W-BIT DID NOT CLEAR BY WRITNG THE PDR 

:FOR TIGHTER SCOPE LOOP, REPLACE ERROR CALL 
‘WITH ‘BR 3$'° = 000740 

[POINT RS TO THE NEXT PDR TO BE TESTED 

[CHANGE VIRT. ADDR TO REF. NEXT POR 
[LOOP BACK TO 3$ UNTIL ALL 8 PDR'S TESTED 
“RESET LOOP ON ERROR POINTER TO 1$ 


[TURN T-BIT BACK ON FOR NEXT TEST 
;BACK TO KERNEL MODE BEFORE LEAVING 
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2810 


034620 
2811 
2812 034622 


2820 034666 
2821 034670 
2822 034672 
2823 
2824 
2825 
2826 034674 
2827 034702 
2828 034710 


012767 
012767 
004767 


135420 


003024 
034622 
145312 


144250 
143132 


143102 
144200 
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'MmARRAARARARARARASAASRSSLAAAASLASLASARRLASRR ARR RR RAR RRR RRR RR SAR RRR ESS S| 


:STEST 55 


ee ee ee ee ey 
a eneneneee 


TSTSS: 


1$: 
23: 


3$: 


4E: 


NOT 


TEST ‘W-BIT NOT SET’’ CASES 


THIS TEST gy TWO SPECIAL CASES WHERE THE ay A he 
GET SET ON A WRITE 


FIRST CASE IS THAT THE W-8 


SHOULD NOT SET IN PAGE DESCRIPTOR REG. 7 WHEN URITING TO 
STATUS REG SRO (KERNEL PDR 7 IS USED). 


ow. ie * »* THAT 


THE W-BIT IS NOT SET IF THE ‘DATO’’ IS ABORTED D 
ODD ADDRESS ERROR (KERNEL PDR3 & VIRTUAL ADDR 80001 OARe USED). 


. 
WEAR ARRRRRRRARARRRASAAARARRRRRRAARRRRARERRRR RAR AAR ARR ARRAS EDS SD SD 


SCOPE 


PC, TOFF 
#77606,R1 
#2$, SLPERR 


MKERSTK ,KSP 
KIPDR3,R2 
R1,R2 


4$ 
+57 


#TIMERR,ERRVEC 
#1$,$LPERR 
PC,TON 


; TURN OFF T=BIT TRAPPING FOR THIS TEST 
PUT ‘W-BIT OFF'’ VALUE FOR PDR_IN Ri 


SET LOOP ON ERROR POINTER TO 2$ 
;LOAD KERNEL ‘_ WITH 77406 TC CLEAR W-BIT 
SET UP LOC. 4 TO 3$ FOR ODD ADDR. ABORT 
;CAUSE ODD ADDRESS ABORT THRU LOC. 4 
SRESTORE THE STACK POINTER 
READ KIPDR3_ INTO R2 
WAS W-BIT r Lert CLEARED? | 


“BRANC H IF 
:W-BIT GOT SET DURING AN ODD ADDR. ABORT 
:FOR TIGHTER SCOPE LOOP 


;REPLACE ERROR CALL WITH 
;"BR 28°" = 000757 


“RESTORE NORMAL CPU TRAP ROUTINE TO LOC.4 
“RESET LOOP ON ERROR POINTER TO 1$ 
“TURN T-BIT TRAPPING BACK ON 
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035052 
035052 


035056 
03 


035144 


016746 
104405 


104401 
000421 


016746 


144160 
144304 
100000 


034756 


144232 
035010 
144034 
001221 
144022 
000042 


035106 


000042 


000020 
010000 


144176 
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144276 


143776 


. SBTTL 


J 
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CARR RRRRSSRRRESASER SESE SER ERR ARRAS RRA RSA R ARR ARR AR ARSED SSS 


RAERAAAAAEAAAARAEARAEREKARARAAEEEREAERAERARAEAEREERRERERRREE 


.SBTTL END OF PASS ROUTINE 
'MARRBAAABAALALALALAALELEASEL ERS ESE S ERR SERRE RRR RRR RRR RRR RRS RSE SSA SS 
;*INCREMENT THE PASS NUMBER (SPASS) 

*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRURS SINCE LAST REPORT YYYvY"' 
l*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 


:*IF SW12=1 


;*IF THERES A 


SEOPCT: 


MO 
SENDCT: Py ated 


37658: 
64$: 


32678: 
66$: 


$GET42: 


$CLR.T: 


SENDAD: 


S$DOAGN: 


INHIBIT TRACE T 
MONITOR GO TO aT 
inp THERE ISN'T JUMP TO LOOP 


STSTNM 


SPASS 
#100000, $PASS 


aces 
$SDOAGN 
enn 


roe 


;;ZERO THE TEST NUMBER 
; INCREMENT THE PASS NUMBER 
bow ALLOW A NEG. NUMBER 


YES 
7 RESTORE COUNTER 


23 TYPE ASCIZ STRING 
:GET OVER THE ASCIZ 


7 PASS #/ 


SPASS ,-(SP) 


678% 


66$ 
/ TOTAL ERRORS 


SERTTL,-(SP) 


M$CLR.T,-(SP) 
SRTRN 


a#42,R0 
$DOAGN 


PC, (RO) 


7 SAVE SPASS FOR TYPEOUT 

:;TYPE PASS NUMBER 

at TYPE~-DECIMAL ASCII WITH SIGN 
TYPE ASCIZ STRING 
[GET OVER THE ~ 

SINCE LAST REPORT / 


oo SERTTL FOR TYPEOUT 
;: TOTAL NUMBER OF ERRORS 

$60 TYPE--DECIMAL ASCII WITH SIGN 
PE Par Wintae! LINE FEED 


:2SETUP FOR wR RTT 
;:GO_DO AN RTI OR RTT TO LOAD THE PSW 
izWITH A CLEARED ‘'T’* BIT 


3; ¢ INSURE aie CONTAINS THE MONITORS 
7 RETURN ADDRESS 


: PUSH OLD PSW AND PC ON STACK 
LEAR THE ‘'T’’ BIT 
TZRUN WITH TRACE TRAP? 


7;BR IF NO 
:z1S IT TIME FOR TRACE TRAP 


SEQ 0087 


CKKTAAO 11/44 MEM MGMT 
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2833 


035150 


035170 


035174 


100402 
052716 
012746 
000002 


000137 
020456 
377 


104410 
032777 
001062 
000416 


013746 
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000020 
035164 


377 


040000 


000004 
035234 
177060 


K 
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143734 


000004 


143666 
143620 


143640 
143576 


SEQ 0088 

BM! 1$ ;7BR IF NO 

BIS #20, (SP) :zSET TRACE TRAP 
1$: MOV #$LOOP ,- (SP) + JUMP TO START OF TEST 
SRTRN: RTI sé ee IS CHANGED TO 

RTT’ IF ‘RTT’ IS A LEGAL 
< UINSTRUCTION 
$LOOP: 
a(PC)+ 7 RETURN 


SRTNAD: .WORD LOOP 
SENULL: .BYTE <-1,~-1,0 


-EVEN 
-SBTTL SCOPE HANDLER ROUTINE 
BSCE ISIS IDI ISIIDIOIDISIOIIOIIIDISIDIOIOIIIDIUIDIOIISIDIIIOIOIUIIOIOIOITIDIOIDITIDITIOIOIIOI IOI 
;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
; *AND LOAD a | TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
; *THE SWITCH wt eo oe rest BY THiS ROUTINE ARE: 


7zNULL CHARACTER STRING 


*SW14=1 
« eSWO =1 LOOP ON ERROR 
7 *SWO8=1 LOOP ON TEST IN SWR<7:0> 
7 *CALL 
3* SCOPE 3: SCOPE=IOT 
SSCOPE: 
CKSWR ty FOR tae IN SOF T-SWR 
1$: BIT #B1T14,aSWR ;LOOP ON PRESENT TEST? 
BNE SOVER YES IF SW14=1 
;AAAAASTART OF CODE FOR THE XOR TESTERMMWaR 
$XTSTR: BR 6$ 3 IF RUNNING ON THE yy" aa ta CHANGE 
sTHIS INSTRUCTION TO & ‘NOP’ (NOP=240) 


MOV @FERRVEC ,-(SP) S ISAVE THE CONTENTS OF THE ERROR VECTOR 


MOV #5$,QMERRVEC =; SET_FOR TIMEOUT 
TST a¥#177060 > TIME OUT ON XOR? 
MOV (SP)+,@#ERRVEC ::RESTORE THE ERROR VECTOR 
BR $SVLAD :3G0_TO THE NEXT TEST 
5$: CMP (SP) +, (SP) + =CLEAR THE STACK AFTER A TIME OUT 
THE ERROR VECTOR 


MOV (SP) +, @#ERRVEC ; ;RESTORE Vv 
BR 7$ LOOP ON THE PRESENT TEST 
6$:;#AMHEND OF CODE FOR THE XOR TESTERMMAMM 


oh ~ haa -@SWR ;:LOOP ON SPEC. TEST? 
CMPB @SWR,STSTNM 7:0N THE RIGHT TEST? SWR<7:0> 
BEQ SOVER 73BR IF YES 
2$: TSTB SERFLG 7ZHAS AN ERROR OCCURRED? 
BEQ SSVLAD ::BR_IF NO 
BIT #B1T09,aSWR ; : LOOP ON ERROR? 
BEQ 4$ :BR_IF NO 
7$: ~» asia 7:SET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB SERFLG tS THE ERROR a 
$SVLAD: INCB $T COUNT TEST NUMBE 


STNM 
MOVB STSTNM, +++ ay 7SET TEST NUMBER IN APT MAILBOX 


MOV (SP) ,$LPA ISAVE SCOPE LOOP ADDRESS 
MOV (SP), SLPERR ::SAVE_ ERROR LOOP ADDRESS 
CLR $ESCAPE 23 CLEAR THE ESCAPE FROM ERROR ADDRESS 


MOVB #1, SERMAX ONLY ALLOW ONE(1) ——— ON NEXT TEST 
SOVER: MOV $TSTNM,@DISPLAY i DISPLAY TEST 
MOV SLPADR, (SP) ; FUDGE RETURN ADDRESS 
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2834 


035364 


035616 


000002 


122767 
001007 


116767 
004767 
000 


001402 
016716 
022737 
001001 


143356 
002032 


143364 


001000 


143312 
143410 


143402 
035116 
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143350 


000042 


SEQ 0089 


RTI ZF INES PS 

.SBTTL_ ERROR HANDLER ROUTINE 
MARAAAASAALAAAALALALALLLAALA SESE SALE RES ERE RR RRS SERRE RRR ASRS RE SS 
[*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: #SAVE cate ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

** 


P ON ERROR 
 *THE SWITCH OPTIONS on thet BY THIS ROUTINE ARE: 
;*SW15=1 HALT ON 
INHIBIT ERROR TYPEOUTS 


+ *SW13=1 
+ *SW10=1 BELL ON ERROR 
i sSuO9=1 LOOP ON ERROR 
** 
ieancn ERROR N 77 ERROR=EMT AND N=ERROR ITEM NUMBER 
CKSWR 7 TEST FOR CHANGE IN SOFT=SwWR 
MOV RO, $REGO ;SAVE THE CONTENTS OF RO 
MOV R1,$REG1 ;SAVE THE CONTENTS OF R1 
MOV R2,$REG2 ;SAVE THE CONTENTS OF R2 
MOV R3,$REG3 ;SAVE THE CONTENTS OF R53 
MOV R4,SREG4 7SAVE THE CONTENTS OF R4 
MOV RS,$REG5 7SAVE THE CONTENTS OF RS 
MOVB $TSTNM, TESTNO ;SAVE THE TEST NUMBER 
7$: INCB SERFLG 32SET THE ERROR FLAG 
BEQ om : DON'T LET THE FLAG GO TO ZERO 
MOV STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #B1T10,aSwR ;7BELL ON ERROR? 
BEQ 1$ zzNO - SKIP 
TYPE , SBELL : sRING BELL 
1$: INC SERTTL OUNT THE NUMBER OF ERRORS 
MOV (SP) , SERRPC GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
MOVB @SERRPC ,$1TEMB 23S TRIP AND SAVE THE ERROR ITEM CODE 
BIT #B1T13,aSWR :SKIP TYPEOUT IF SET 
BNE 20$ *:SKIP TYPEOUTS 
JSR PC, ERRTYP 3:G0 TO USER ERROR ROUTINE 
_ TYPE -SCRLF 
CMPB MAPTENV, SENV 7 RUNNING IN APT MODE 
BNE 7ZNO,SKIP APT ERROR REPOR 
MOVB SITEMB,21$ 77SET ITEM NUMBER AS ERROR NUMBER 
JSR PC, SATY4 7 REPORT FATAL ERROR TO APT 
218: -BYTE O 
BYTE 0O 
22$: 22$ 7 APT ERROR LOOP 
2s: TST aSwR ;;HALT ON ERROR 
BPL 3$ ii SKIP IF CONTINUE 
HALT sHALT ON ERROR! 
’ CKSWR :3 TEST FOR CHANGE IN SOF T-SWR 
3$: BIT #B1T09,aSWR 7;LOOP ON ERROR SWITCH SET? 
BEQ 4 ;7BR IF NO 
MOV SLPERR, (SP) : FUDGE RETURN FOR LOOPING 
4$: TST SESCAPE 7:CHECK FOR AN ESCAPE ADDRESS 
BEQ 5$ 7;BR IF NONE 
a MOV SESCAPE, (SP) 77FUDGE RETURN ADDRESS FOR ESCAPE 
CMP MSENDAD , 2442 :sACT~11 AUTO=ACCEPT? 
BNE 6$ a3 CH IF NO 


aba 11/44 MEM MGMT 


2876 035756 
2877 

2878 035760 
2879 035764 
2880 035766 
2881 035770 
2882 035772 
288. 

2884 035774 
2885 036000 
2886 036002 
2887 036004 
2888 036010 


RROR HANDLER ROUTINE 


000000 
000002 


104401 
010046 


005000 
153700 
001004 


016746 


013146 
104402 
000456 
121027 
001003 
013146 
104405 
000450 
121027 
001003 
013146 
104406 
000442 
121027 
001011 
012146 
004767 
062716 
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001221 
001114 


143250 


001372 
000004 
001221 
000004 


001221 


000001 


000002 


000003 


002640 
000003 
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6$: 


M 
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ERRTYP: TYPE 
MOV 


1$: 


2s: 
3$: 


4$: 
5$: 


6$: 


TSTB 


.SCRLF 
_——= 
a4$1TEMB RO 
1$ 

SERRPC ,~(SP) 
13$ 
RO 
RO 
RO 


RO 
#SERRTB,RO 
(RO) +,2$ 
3$ 


-SCRLF 
(RO)+,4$ 
5$ 


0 

,SCRLF 
R1,-(KSP) 
(RO)+,R1 


1 
(RO) +,RO 
(RO) 


sc VES 
7 RETURN 
Pa ~ RETURN'’ &@ “LINE FEED’ 
sPICKUP THE ITEM INDEX 
;1F ITEM NUMBER IS som JUST 
: TYPE THE PC OF THE ERR 
+ SAVE ——— FOR FYPEOUT 
2 ED TYPES DRESS 
360 os ASCII(ALL DIGITS) 


S ADJUST THE INDEX SO THAT IT WILL 
[WORK FOR THE ERROR TABLE. 


a yn TABLE POINTER 

UP "ERROR MESSAGE** POINTER 
SKIP UF YPEOUT IF NO POINTER 
: TYPE THE ‘ERROR MESSAGE"’ 
:ERR RROR MESSAGE’* POINTER GOES HERE 
2*'CARRIAGE RETURN'’ & "LINE FEED"’ 
[PICKUP ‘DATA HEADER'’ POINTER 
: SKIP a IF 0 
; TYPE THE ‘DATA HEADER’ 
z' DATA HEADER POINTER GOES HERE 
‘ee RETURN'’ & "LINE FEED*' 


PICKUP ‘DATA TABLE‘ POINTER 
3BR_IF NO DATA TO BE TYPED 
PICKUP ‘DATA FORMAT’’ POINTER 
sis IT FORMAT 0? 


BNE 7$ IF NO 
i*THIS eo IS 4 OCTAL eer F _FORMAT (DF=0) 


7$: 


8s: 


9s: 


BNE 
MOV 
TYP 


MOV 
TYPBN 


R1)+,-(SP) 


8S 
a(R1)+,-(SP) 


a(R1)+,-(SP) 


BR 11$ 
;*THIS CODE IS FOR OCTAL (22-BIT) wig! (DF =3) 
MPB (RO) ,43 1S IT F 


15$ 
(R1)+,—(KSP) 
PC ,$DB20 
#3, (KSP) 


SAVE a(R1)+ FPR TYPEOUT 
:i¢0 TYPE--OCTAL ASCIIC(ALL DIGITS) 


BR 11$ 
;*THIS CODE IS FOR DECIMAL FORMAT (DF=1) 
CMPB (RO) 41 33 


S IT FORMAT 1? 


BRANCH IF NO 
13 SAVE a(R1)+ FOR TYPEOUT 
273GO TYPE--DECIMAL ASCII WITH SIGN 


BR 11$ 
;*THIS CODE IS FOR BINARY FORMAT (DF=2) 
CMPB (RO) 42 


Pe op 
CH IF NO 


co a(R1)+ FOR TYPEOUT 
TYPE--BINARY ASCII 


ORMAT 3? 


BRANCH IF NO 
[PUT ADDRESS OF FIRST LOC. ON STACK 
aye TWO LOCS. 


Y NEED 8 CHARACTERS NOT 11 


TO AN ASCII STRING 


SEQ 0090 


N 
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012667 MOV (KSP)+,10$ a0 ADDRESS OF ASCII CHARS. AT 10$ 
104401 TYPE TYPE OCTAL VALUE OF 22-BIT BINARY NO. 


10$: -WORD 0 
:®THIS CODE IS FOR OCTAL (22=BIT) FORMAT FOR A PAR LEFT SHIFTED 6 (DF=4) 
15$: MOV R2,~(KSP) ; SAVE CK 


R3,-(KSP) 
ack )+,R3 


010246 
010346 


TO AN met STRING 


TYPE OCTAL VALUE OF 22-BIT BINARY NO. 


0 

(KSP) + ,R3 ZRESTORE R3 

(KSP)+,R2 ZRESTORE R2 

(R1) 21S ge ANOTHER NUMBER? 
12$ BR IF NO 

.14$ ‘TYPE TWO(2) 

(RO) + ;POINT TO NEW SATA FORMAT"* 
6$ :LOOP 


(KSP)+,R1 ZRESTORE R1 
(KSP)+,RO :REST ORE RO 
-SCRLF CARRIAGE RETURN’ & "LINE FEED"’ 


PC RETURN 
:TWOC2) SPACES 


(kSP) +, 16$ 


2918 036131 
2919 
2920 -SBTTL TTY INPUT ROUTINE 


fF AAA A AERA EERREKKEEEERARREARERERERRERERREREREERERREEREE 
PD LL GELLER LPL i TT 2 
*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER WILL 
:sSERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP CALL 
*WHEN OPERATING IN TTY FLAG MODE. 
022767 000176 143000 $CKSWR: CMP #SUREG, SWR 21S THE SOFT-SWR SELECTED? 


BNE 
142776 a$TkS 
BPL 15$ 
142772 a$TKB,-(SP) 
177600 #°C177, (SP) 
#7 ,(SPS+ 
142742 $AUTOB, 41 
BE 15$ 
,SCNTLG 
WR 


SMS 
SWREG,~(SP) 


TYPEOUT 
3360 TYPE=-OCTAL ASCII(ALL DIGITS) 
037105 - SYNEW PROMPT FOR NEW SWR 

: ~(SP) 7: CLEAR COUNTER 
005046 CL ~(SP) 32 THE NEW SWR 
105777 142714 : a$TKS 3;;CHAR THERE? 
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7$ ; TRY AGAIN 
142710 a$TKB,-(SP) :: CHAR 
77600 #*(177, (SP) “* T 7-BIT ASCII 
3 (SP) ,# A CONT ROL-C? 
BNE 9$ 
001350 »SCNTLC 
000096 #6,SP 
142651 000001 SINTAG,#1 
142646 


: (CH IF NO 
2eYES, IS IT THE FIRST CHAR? 
11$ SBRANCH IF YES 

142574 2(SP) ,aSwR t:SAVE NEW SWR 
000006 : #6,SP ::CLEAR UP STACK 
001221 : $CRLF :* AND <LF> 
142555 000001 SINTAG, a1 : RE NABLE iy KBD INTERRUPTS? 
000100 142552 #100, a$TKS :: TTY KBD INTERRUPTS 


001040 $: PC, $TYPEC 
000060 (SP) ,#60 


18$ 
000067 fg 467 
000060 #60, (SP) + 
000002 2 (SP) 


F YES 


000002 17$: 2(SP) 
177776 - le - (SP) 


BR 
001220 188: $QUES : 
BR 20$ :TSIMULATE CONTROL-U 
.DSABL 


be 3 RAEAEAAEAEAERAAEAEERARAAREEAEREKREREKEAEAEAAKAREARARAAERERRAEEAAAREREEE 


eat ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


RDCHR 33 INPUT A_ SINGLE "ee tthee FROM THE TTY 
RETURN HERE 3: CHARACTER IS ON THE S 
;sWITH PARITY BIT STRIPPED OF F 


(SP) ,=(SP) 72PUSH DOWN THE PC 
(SP), 2(SP) [SAVE THE PS 

asTk :iWAlT FOR 

1$ 7A CHARACTER 

a$TkB,4 (SP) [READ THE TTY 

tT Ne 4(SP) SIGET RID OF JUNK IF ANY 
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5 
122713 


000004 
142422 
142416 


177600 
000021 


000040 


037052 
037062 


000003 
001350 


000256 
000177 


000134 
037050 
177777 
037052 


000144 
037050 
000134 
037050 
000025 


037062 
000022 
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000023 


000140 
000175 
000004 


000170 


000124 


2$: 


3$: 


4(SP) #23 
3$ 

a$TkS 

2s 
a$TKB,-(SP) 
#°(177, (SP) 
(SP)+,421 
2$ 

1$ 

4 (SP) #140 
4 (SP) #175 
4$ 
#40,4(SP) 


SI GET CHARACTER 
7 MAKE IT 7-B1T ASCII 
3218 IT A CONTROL-Q? 
371F NOT DISCARD IT 
77 YES, RESUME 
iTS IT UPPER CASE? 
;BRANCH IF YES 
i31S IT A SPECIAL CHAR? 
: {BRANCH IF YES 
MAKE IT UPPER CASE 
£260 BACK TO USER 


WMADAADAAARASARSAAASAZLARALALALASLAAESA LARA E AREA EAR R RRR SAAR RRS S SE 


:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


*CALL: 


10$: 


6$: 


5$: 


7$: 


8$: 


RDLIN 
RETURN HERE 


R3,-(SP) 
~(SP) 
#STTYIN,R3 


AMSTTYINGS. ,R3 


4$ 


(SP)+, (R3) 
#3, (R3) 
10$ 


TRLC 
#177, (R3) 
(SP) 

6$ 
#'\,9$ 
#1. (SP) 
R3.#STTYIN 
(R3).98 
d$ 

(SP) 

7$ 
#'\,9$ 
9S 

(SP) 
#25,,(R3) 
,SCNTLU 
#22, (R3) 


33 INPUT A STRING FROM THE T 
ae st OF FIRST CHARACTER "ute BE ON THE STACK 
a bat WILL BE A BYTE OF ALL O'S 


ES 
3:GO READ ONE CHARACTER FROM THE TTY 
4a CHARACTER 
S IT A_CONTROL-C? 
CH IF NO 


+3 TYPE A_CONTROL-C (“*C) 
: CLEAN RUBOUT KEY OFF OF THE STACK 
;;RESTORE R3 
2 GOTO wy? RESTART 
IT A RUBOUT 


<BR IF NO 
IS THIS THE FIRST RUBOUT? 
::TYPE A BACK SLASH 
::SET THE RUBOUT KEY 
Y ONE 


; BACKUP B 
: b3 STARS EMPTY? 


‘BR IF YES 
:}SETUP TO TYPEOUT THE DELETED CHAR. 
°:GO READ ANOTHER CHAR. 

: :RUBOUT KEY SET? 


IF 
TITYPE A NBACK SLASH 


3:CLEAR THE RUBOUT KEY 
231$ — A CTRL U? 


$3 IF NO 

77 TYPE A CONTROL ‘U"' 
32:GO START OVER 

3271S CHARACTER A ‘"*R'” 


SEQ 0093 


























D 
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TTY INPUT ROUTINE SEQ 0094 

036752 001011 BNE 3$ ;BRANCH IF NO 
036754 105013 CLRB —s- (R33) SO CLEAR THE CHARACTER 
036756 104401 001221 TYPE  ,$CRLF : i TYPE ACR & ‘LE 
036762 104401 037052 TYPE STTYIN TYPE tHE. INPUT STRING 
036766 000706 BR $ 3360 PICKUP ,ANOTHER CHACTER 
036770 104401 001220 4$: TYPE $QUES [TYPE A 
036774 000701 BR is SICLEAR THe BUFFER AND LOOP 
036776 111367 000046 3$: MOVB _ (R3),9$ SZECHO THE CHARACTER 
037002 104401 037050 TYPE =, 

7006 122723 000015 CMPBs#15,, (R3)+ :3CHECK FOR RETURN 
037012 001274 BNE 2$ S:LOOP IF NOT RETURN 
037014 105063 177777 CLRB =—s_ -1(R3) SZCLEAR RETURN (THE 15) 
037020 104401 001222 TYPE  ,$LF i: TYPE A LINE FE 
037024 005726 TST (SP) + *CLEAN RUBOUT KEY FROM THE STACK 
037026 012603 MOV (SP) +,R3 S RESTORE R3 
037030 011646 MOV (SP) ,=(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
037032 016666 000004 000002 MOV 4(SP) ,2(SP) *: FIRST ASCII CHARACTER ON IT 
037040 012766 037052 000004 MOV #STTYIN, 4 (SP) 
037046 000002 RTI  ;RETURN 
037050 000 9$: .BYTE 0 i: STORAGE FOR ASCII CHAR. TO TYPE 
037051 000 "BYTE 0 : TERMINATOR 
037052 $TTYIN: .BLKB 8. : SRESERVE 8 BYTES FOR TTY INPUT 
037062 136 125 015 $CNTLU: [ASCIZ /*U/<15><12> —: : CONTROL °U" 
037065 012 000 


037067 136 107 015 S$CNTLG: .ASCIZ /*G/<15><12> 3= CONTROL ‘'G’’ 
037074 015 012 123 SMSWR: .ASCIZ <15><12>/SWR = / 


040 
037105 040 040 116 SMNEW: .ASCIZ / NEW = / 





2921 
Sass -SBTTL CONTROL-C SERVICING ROUTINE 
2924 037116 016767 142110 142064 CNTRLC: MOV SPASS , STMPS i* THE VALUE OF © tell 
2925 037124 005267 142060 INC STMP5S FORM CURRENT PASS # 
2926 037130 104401 037175 TYPE . CMSG STYPE THE TEST STOPS HERE 
2927 037134 116767 141742 000026 MOVB STSTNM,1$ SAVE TEST NUMBER 
2928 037142 016746 000022 MOV 1$,-(SP) SAVE 1$ FO TYPEOUT 
2929 037146 104402 TYPOC 
2930 037150 104401 037172 TYPE .c$ 
2931 037154 016746 142030 MOV $STMPS ,-(SP) SAVE STMPS FOR TYPEOUT 
2932 037160 104405 TYPDS : TYPE ASCII eh ee WITH SIGN 
2933 037162 104407 GTSWR SASK FOR NEW SWR VALUE 
2934 037164 000167 175526 JMP SEOP+2 JUMP TO END OF PASS +2 
2935 pata 000000 1$: -WORD 0 TEST # BUFFER 
2936 037172 040 040 000 2$: ASCIZ 7 / :2 SPACES & STOP MESSAGE 
2937 037175 112 125 115 CMSG: ASCII /JUMPING TO END OF PASS/<15><12> 

037200 120 111 116 

037203 107 040 124 

037206 117 040 105 

037211 116 104 040 

037214 117 106 040 

037217 120 101 123 

037222 123 015 012 
2938 037225 000 BYTE 0 
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2939 


037226 


037366 
037370 
037374 
037 

037412 
037414 


105767 
100002 


004 
126726 
001350 


112716 


141725 


000002 
000001 


000100 
000004 
000270 
000040 


000002 
000011 
000200 


000200 


000056 
141570 


141560 
000001 
000032 
000142 


000040 
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141770 
141761 


141737 


» SBTTL 


TYPE ROUTINE 


RARER AAAAHRAAAAAAARAAAAAAATAAAHARARERARAARAEARAAAAAAAAAAARARAEEREREAEEE 


“ #ROUT INE TO TYPE ASCIZ MESSAGE. 
> * THE a WILL INSERT A NUMBER OF NUL 

SNULL CONTAINS THE CHARACTER Y BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FIL 


ca 
*CAL 


61$: . WORD 


62$: 


2s: MOVB 


60$: 
3$: 


4$: CMPB 


BR 
5$: JSR 
6$: CMPB 


7$: DECB 


JSR 
DECB 
BR 


;HORIZONTAL TAB 
MOVB 


BS: 


MESSAGE MUST TERMINATE WITH 4 OQ BYTE. 
L_CHARACTERS AFTER A LINE FEED 


LER CHARACTERS REQUIRED. 


SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


STPFLG 
1$ 


3$ 

RO,-(SP) 
@2<SP) ,RO 
on 


6 
#APTSPOOL , SENVM 
62$ 


RO,61$ 
oe 


MAPTCSUP , SENVM 


6 

(RO) +,-(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
MHT , (SP) 
ACRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2s 


PC,STYPEC 
SFILLC,(SP)+ 


2s 
$NULL ,- (SP) 
1(SP) 

$ 


6 
PC,S$TYPEC 
SCHARCNT 


7$ 
PROCESSOR 
#’ (SP) 


i sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


31S Hae A TERMINAL ? 


YES 
:¢HALT HERE IF NO TERMINAL 
LEAVE 


i TSAV VE RO 
2 3GET ADDRESS OF ASCIZ STRING 
ING IN APT 


oe MOD 

NO,GO CHECK FOR APT CONSOLE 

: SPOOL MESSAGE TO APT 

:=NO,GO CHECK FOR CONSOLE 

5 OO. MESSAGE ADDRESS FOR APT 
MESSAGE TO APT 


> MESSAGE ADDRESS 

ST APT CONSOLE SUPPRESSED 

7: YES,SKIP TYPE OUT 

; :PUSH CHARA CTER TO BE TYPED ONTO STACK 
:BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

; RESTORE RO 

; ADJUST RETURN PC 

7 RETURN 


; BRANCH IF <HT> 
7; BRANCH IF NOT <CRLF> 


444 <CR><LF> EQUIV 
7 TYPE A CR AND LF 


3;CLEAR CHARACTER COUNT 


:7GET NEXT CHARACTER 
7:G0 TYPE THIS CHARA 
3718S IT TIME FOR FILLER CHARS.? 
32:1F NO GO GET NEXT CHAR, 
;;GET # OF FILLER CHARS. NEEDED 
77AND THE NULL CHAR. 
ss0eee A NULL NEED TO BE TYPED? 
4 Fool a tat POP THE NULL OFF OF STACK 


A NULL 
$109 NOT COUNT AS A COUNT 
ooP 


. 
co 


;sREPLACE TAB WITH SPACE 


SEQ 0095 
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037710 


112767 
112767 
000403 
112767 


PRT A 


000014 
000007 


141504 


000002 
141464 
141460 
177600 
000023 
141440 
141434 
177600 
000021 
000015 
000014 


000012 


000001 
000001 


000001 


000206 
000001 
000100 


000002 
141350 
141356 


141346 
141342 
000004 


000004 


F &g 
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TYPE A SPACE 
:2BRANCH IF NOT AT 


ST 
: :POP SPACE OFF STACK 
;GET NEXT CHARACTER 
T:WAIT UNTIL PRINTER IS READY 


;LOAD CHAR TO BE te ¥e Hyd DATA REG. 


SISEE IF KEYBOARD | 

7 BRANCH IF IT ISN'T 

PUSH CHARACTER ONTO STACK 

a CLEAR TOP 7s — PARITY BIT. 

77SEE IF THIS IS A 

: «BRANCH TO CONTINUE if IT ISN'T 
HER INPUT. 


::BiT CLEAR TOP BYTE AND PARITY BIT. 
;zSEE IF THIS IS A “Q. 

; ;BRANCH BACK FOR MORE WAIT IF NOT. 
21S CHARACTER A CARRIAGE RETURN? 


BRANCH IF NO 
: :VES“~CLEAR CHARACTER COUNT 


i218 CHARACTER A LINE FEED? 
re YES 


HE CHARACTER 
CHARACTER COUNT STORAGE 


SAAR AAAAAARERE AERA ARERR ERARERAERARAARERARHARARER REED 


3:TO REPORT FATAL ERROR 
3:TO TYPE A MESSAGE 


3;TO ONLY REPORT FATAL ERROR 


7 PUSH RO ON STACK 
;3PUSH R1 ON STACK 
+4 TYPE A MESSAGE? 


NO 
; ;OPERAT ING UNDER APT? 
:1F NOT: BR 
: : SHOULD SPOOL MESSAGES? 
F NOT: BR 


GET MESSAGE ADDR. 
; ;BUMP RETURN ADDR 
::SEE IF DONE / LAST XMISSION? 
::PUr ADDR IN MAILBOX 
FIND END OF MESSAGE 
;¢SUB START OF MESSAGE 
3:GET MESSAGE LNGTH IN WORDS 


: PUT LENGTH IN MAILBOX 
77 TELL APT TO TAKE MSG. 


MACRO M1111 
9$: JSR PC, STYPEC 
000122 B1TB #7, $CHARCNT 
BNE 9$ 
TST (SP) + 
BR 2$ 
$TYPEC: TSTB a$sTPs 
BPL STYPEC 
141476 MOVB 2(SP) ,a$TPB 
TSTB a$sTKS 
BPL 
MOV @$TKB,-(SP) 
BIC #177600, (SP) 
CMP #23, (SP)+ 
BNE $ 
3$: TSTB a$TKS 
BPL 3$ 
MOV a$TkK8,-(SP) 
BIC #177600, (SP) 
CMP #21, (SP)+ 
BNE 3$ 
000002 2$ CMPB #CR,2(SP) 
BNE 1$ 
CLRB SCHARCNT 
$TYPEX 
000002 1$: CMPB LF ,2(SP) 
BEQ $TYPEX 
INCB (PC) + 
SCHARCNT:.WORD 0 
STYPEX: RTS PC 
- SBTTL APT COMMUNICATIONS ROUTINE 
000236 $ATY1 MOVB #1,$FFLG 
000226 S$ATY3: MOVB -SMFLG 
BR SATYC 
000220 $ATY4: MOVB #1,SFFLG 
SATYC 
MOV RO,-(SP) 
MOV R1,-(SP) 
TSTB SMFLG 
BEQ 5$ 
141420 — #APTENV, SENV 
141411 BITB #APTSPOOL , SENVM 
BEQ $ 
MOV a4(SP) RO 
000004 ADD #2,4(SP) 
1$ TST SMSGTYPE 
BNE 
MOV RO, SMSGAD 
23: TSTB O)+ 
BNE 23 
SUB SMSGAD ,RO 
ASR RO 
~ MOV RO, $MSGL GT 
141316 MOV #4, SMSGTYPE 
BR 5$ 
000016 3$: MOV a4(SP),4$ 


3zPUT MSG ADDR IN JSR LINKAGE 


SEQ 0096 


PhD Halse 
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2941 


037716 


062766 
016746 
004767 


105767 


010146 
01660 


000002 
140046 
177272 
000062 
141274 
141246 
000004 
000002 
141224 
000020 
000013 
000006 


000006 
000060 
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000004 


141240 
000004 


000034 


000004 


ADD 
MOV 
JSR 
4$: ~ WORD 
S$: 
10$: TSTB 
BEQ 
TST 
BEQ 
11$ TST 
BNE 
MOV 
ADD 
INC 
12$: CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
SMFLG: .BYTE 
$LFLG: .BYTE 
SFFLG: .BYTE 
EVEN 
APTSIZE= 300 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


#2,4(SP) 
177776, =(SP) 
PC, $TYPE 

0 

SFFLG 

12$ 

SENV 

12$ 
SMSGTYPE 

11$ 

a4 (SP), SFATAL 
#2,4(SP) 

$MS 


(SP)+,R1 
aii 


p 
0 
0 


RETURN ADDRESS 


: : PUSH 199 76 ON STACK 
*:CALL TYPE MACRO 


: ¢ RUNNING UNDER 
NOT: BR 

FINISHED ay | 
F NOT: WAIT 
3IGET ERROR # 


; BUMP 
: TELL abt TO T 
TICLEAR FATAL 


4h re P REPORT FATAL ERROR? 


APT? 
ME SSAGE ? 
RETURN ADDR. 


AKE ERROR 
FLAG 


::CLEAR LOG FLAG 


;:CLEAR MESSAGE 

;3POP STACK INT 

: ¢POP STACK INT 
RE TURN 

: 2MESSG. FLAG 


OG FLAG 
iFATAL FLAG 


- SBTTL BINARY TO ASCII AND TYPE ROUTINE 


MADARA AAALERAALASLALASLASLAAASAA RS RARASAR RAS RRR ARRAS RRR RRR RRR RRR R DS DO | 


:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-817 


; *BINARY-ASCII NUMBER AND TYPE IT 


*“* 
$TYPBN: MOV 


1$: 


*CALL: 


;@ MOV 


2$: MOV 


$BIN: 


:*OCTAL (ASCII) 


;*CALL: 


3* MOV 


NUMBER , ~ (SP) 


R1,-(SP) 
6(SP),R1 


#°0,$BIN 


NUMBER AND T 


NUM, ~ (SP) 


i TO BE 
TYPE IT 


FLAG 
0 RI 
0 RO 


TYPED 


: SAVE a ON THE STACK 


GET T 


SET CHARACTER 
:iGET THIS BIT 


; DONE ? 
> INO~~SET 


INPUT NUMBER 
53ST ag SO CAN KEEP TRACK OF THE NUMBER OF BITS 
TO AN ASCII ‘*0"’. 


THE CHARACTER EQUAL TO THIS BIT 


::GO_ TYPE THIS BIT 


7:CLEAR ‘'C’* SO at TRACK OF BITS 


THE STACK 


; ;POP 
TIADJUST THE STACK 


3 ;RETURN T 


USER 
YTE 0,0 ; STORAGE FOR ASCII CHAR. AND TERMINATOR 
- SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


JAAR EAAARARARRAAEAEAEEAEKERAAAEEREAERAEREREEAAEAERAAEREAAAEARAAEAAAAERRER REE 


‘STHIS ROUTINE IS USED TO “~— : 16-BIT BINARY NUMBER TO A 6-DIGIT 


; NUMBER TO BE 


INTO R1 


YPE | 
> *$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TyPE 


TYPED 


SEQ 0097 
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BINARY TO OCTAL (ASCII) AND TYPE 


000076 
177770 


H & 
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3@ TYPOS ;:CALL FOR TYPEOUT 

;* -BYTE N ;zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3" -BYTE mM 7iM=1 OR O 

pe 35 1=TYPE LEADING ZEROS 

s* ;0=SUPPRESS LEADING ZEROS 


-* 
3 *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


S*CALL: 
fa MOV NUM, = (SP) ; NUMBER TO BE TYPED 
;* TYPON 3iCALL FOR TYPEOUT 
** 
ae HERE FOR TYPEOUT OF A 16 BIT NUMBER 
7*CALL: 
:* MOV NUM , = (SP) ; ;NUMBER TO BE TYPED 
3% TYPOC 3:CALL FOR TYPEOUT 
$TYPOS: MOV a(SP) ,-(SP) zzPICKUP THE MODE 
MOVB 1(SP) ,SOF ILL ;;LOAD ZERO FILL SWITCH 
MOVB (SP) +, SOMODE +1 : ;NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) ; ADJUST RETURN ADDRESS 
BR $TYPON 
$TYPOC: MOVB #1,S0F ILL 7zSET THE ZERO FILL SWITCH 
MOVB #6, SOMODE +1 -L FOR SIX(6) DIGITS 
$TYPON: MOVB #5, SOCNT 7zSET THE ITERATION COUNT 
MOV R3,-(SP) as E R3 
MOV R4,-(SP) 7 SAVE R4 
MOY RS,-(SP) 77 SAVE RS 
~ 2 > Suetitincs 37;GET THE NUMBER OF DIGITS TO TYPE 
N 
ADD #6,R4 7 SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4 , SOMODE ts IT FOR USE 
MOVB SOF ILL,RS 3:GET THE ZERO FILL SWITCH 
MOV 12(SP) ,.R5 : «PICKUP THE INPUT NUMBER 
CLR R3 sCLEAR THE OUTPUT WORD 
1$: ROL R5 : :ROTATE MSB INTO ‘'C'' 
BR 3$ ‘3 DC MSB 
2$: ROL RS FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 ;GET LSB OF THIS DIGIT 
DECB SOMODE : TYPE THIS DIGIT? 
BPL 7$ F NO 
BIC #177770,R3 >:GET RID OF JUNK* 
BNE 4$ : TEST FOR O 
TST R4 ; SUPPRESS THIS 0? 
BEQ 5$ .° IF YES 
4$: INC RG ;:DON' T SUPPRESS ANYMORE 0'S 
BIS #°O,R3 sMAKE THIS DIGIT ASCII 
5$: BIS #* R3 + SMAKE ASCII IF NOT ALREADY 
MOVB = R33, BS SZSAVE FOR TYPING 
TYPE 8% 7260 TYPE THIS DIGIT 
7$: DECB SOCNT ;COUNT BY 1 
BST 2$ : BR IF MORE TO DO 
BLT 6$ ;BR IF DONE 
INC R4 +: INSURE LAST DIGIT ISN'T A BLANK 


BR 2$ ::GO DO THE LAST DIGIT 


SEQ 0098 
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012605 
012604 
012603 


016666 
012616 
000002 
000 
000 
000 


000 
000000 


002 
010502 


000002 


020200 
000020 
000055 
040544 
000040 


040534 


000001 
000060 
000040 


000010 
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SEQ 0099 


: ¢RESTORE RS 
RESTORE R4 
SERESTORE R3 
73SET THE STACK FOR RETURNING 


; RETURN 
 : STORAGE FOR ASCII DIGIT 


: NUMBER OF DIGITS TO TYPE 


. WOR 0 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


RAERRAERERAEAEEERARREARAEREREKHEEKE 


A 16-B1T BINARY NUMBER TO A 5-DIGIT 


; *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 


6$: MOV (SP) +,R5 
MOV (SP) +,R4 
MOV (SP)+,R3 
000004 MOV 2(SP),4(SP) 
MOV (SP) +, (SP) 
RTI 
8$: -BYTE O 
SOCNT BYTE 0 
SOFILL: .BYTE 0 
SOMODE : D 
. SBTTL 
MARAARBRBSBASAALLALLASLESE ESSERE SSS 
+ * THIS ROUTINE IS USED TO CHANGE 
> *NUMBER IS POSITIVE OR NEGATIVE 
+ *BEF ORE THE FIRST DIGIT OF 
;*REPLACED WITH SPACES. 
> *CALL: 
om MOV NUM ,-(SP) 
:* TYPDS 
$TYPDS: 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3, =(SP) 
MOV R5,-(SP 
MOV #20200, » sp) 
MOV oR5 
BPL 
NEG R5 
000001 MOVB #*=,1(SP) 
1$ CLR RO 
MOV #SDBLK RZ 
MOVB #' ,(R3)* 
2s: CLR R2 
MOV $DTBL(RO).R1 
3$: SUB R1,R5 
BLT 4$ 
INC R2 
BR 3$ 
4$: ADD R1,R5 
TST 2 
BNE $ 
TSTB (SP) 
BM! $ 
5$: ASLB (SP) 
BCC 6$ 
177777 MOVB 1(SP) ,-1(R3) 
6$: BIS #'0,Re 
7$: BIS #* ,R2 
MO R2, (R3)+ 
TST (RO) + 
CMP RO,410 
BLT 2s 
BGT 8 


A SPACE OR A MINUS SIGN WILL BE TYPED 


THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


;PUT_THE BINARY NUMBER ON THE STACK 
:i60 TO THE ROUTINE 


PUSH RO ON STACK 


;PUSH R3 ON STACK 

; PUSH R5 ON STACK 

33SET BLANK on Sp yl a SIGN 
2 2GET THE INPUT 


3 R 
7zSET THE FIRST CHARACTER TO A BLANK 
7 CLEAR THE BCD a 

sGET THE CONSTAN 
+: FORM THIS BCD DIGIT 


7 7BR IF DONE 
32 INCREASE THE BCD DIGIT BY 1 


;ZADD BACK THE CONSTANT 

7: CHECK IF BCD DIGIT=0 
7ZFALL THROUGH IF 0 
izSTILL DOING LEADING 0°S? 
: BR IF YES 


7;BR IF NO 

7 YES--SET THE SIGN 

7ZMAKE THE BCD DIGIT ASCI! 

a IT A SPACE IF NOT ALREADY A DIG 
;PUT THIS CHARACTER IN THE OUTPUT BUF 
+ JUST INCREMENT ING 

CHECK THE TABLE INDEX 

3:GO DO THE NEXT DIGIT 

3:G0 TO EXIT 

7 GET THE LSD 


GIT 
FER 
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CONVERT BINARY 


J & 
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6$ 

(SP) + 

9$ 

-1(SP) ,-2(R3) 
R3) 


( 
(SP)+,R5 
(SP)+,R3 
(SP)+.R2 
(SP)+.R1 
(SP) +.RO 
SDBLK 
3(SP) ,4(SP) 
(SP) +, (SP) 


;3GO CHANGE TO ASCII 
+e WAS a THE FIRST NON-ZERO? 


7 YES==SET THE = t TYPING 


me ton” INTO RO 
; THE NUMBER 
‘ADJUST THE STACK 
7 RETURN TO USER 


4 
-SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


WEARS ARASRASASAALASZSALASASEARE SER SAS ASRS ALES RR RRR RRR RRR RRR R RR RASS SS 


TO DECIMAL AND TYPE R 

G00764 BR 
105726 8$: TSTB 
100003 BPL 
116663 177777 177776 MOVB 
105013 9$: CLRB 

12605 MOV 
012603 MOV 
012602 MOV 
012601 MOV 
012600 MOV 
104401 040544 TYPE 
016666 000002 000004 MOV 
012616 a4 
023420 $DTBL: 10000. 
001750 4000. 
000144 100. 
000012 10. 

$DBLK: .BLKW 
7 *SAVE RO-R5 
7*CALL: 
te 
‘ eTOP===(+16) 
y* +2---(+18) 
D® +4==-R5 
p® +6---R4 
;* +8---R3 
1*+10-=-R2 
2*+12---R1 
3*414---R0 
SSAVREG: 

1004 MOV 
010146 MOV 
010246 MOV 
010346 MOv 

10446 MOV 
010546 MOV 
016646 000022 MOV 

16646 000022 MOV 
016646 000022 MOV 

16646 000022 “5 

;*RESTORE RO-R5 
7 *CALL: 
3* RESREG 
SRESREG: 

12666 0000 MOV 
012666 000022 MOV 

12666 0000 MOV 
012666 000022 MOV 
012605 MOV 
012604 MOV 
012603 MOV 


RO,~(SP) 


5.7-(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 


(SP)+,22(SP) 


(SP)+,22(SP) 
(SP)+-R5 
(SP) +.R4 
(SP)+,R3 


SAVREG 
+ SUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


3=PUSH RO ON STACK 
;3PUSH R1 ON STACK 
;PUSH R2 ON STACK 
73PUSH R3 ON STACK 
7=PUSH R4 ON STACK 
7=PUSH RS ON STACK 


72SAVE PS OF MAIN FLOW 
3zSAVE PC OF MAIN FLOW 
7zSAVE PS OF CALL 
7zSAVE PC OF CALL 


:sRESTORE PC OF CALL. 
hs 3 1 : PS OF CALL 


TORE PC O 
>;RESTORE PS OF MAIN FLOW 
3:POP STACK INTO R5 
;:POP STACK INTO R4 
32POP STACK INTO R3 


SEQ 0100 
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SAVE AND RESTORE RO=R5 ROUTINES 


000002 
040767 
009014 
177770 


000002 


000060 


k ¢ 
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SEQ 0101 
(SP)+,R2 33POP STACK INTO R2 
(SP)+,R1 33POP STACK INTO R1 
(SP) +,RO 3zPOP STACK INTO RO 


. SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 

MTTIITIIL LIL LLL LILI iit litt iiii titi ttttiiii 
[*THIS ROUTINE WILL CONVERT “4 32-BIT UNSIGNED BINARY NUMBER TO AN 
: SUNS IGNED OCTAL ASCIZ NUMBE 


$pB20: 


1$: 


2$: 
3$: 


SOCTVL: 


-BLKB 


#PNTR ,-(SP) ::POINTER TO LOW WORD OF BINARY NUMBER 
PC,a#$DB20 CALL THE ROUTI 
a oe ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
+ SAVE ALL REGISTERS 


2(SP).R1 ::PICKUP THE POINTER TO LOW WORD 
#SOCTVL+13.,R5 POINTER TO DATA TABLE 
#12. ,R4 +:DO0 ELEVEN CHARACTERS 
#*C7_R3 7 :MASK 
(R1)+,RO +: LOWER WORD 
(R1)+.R1 ::HIGH WORD 
R2 : TERMINATOR 
R2,-(R5) ::PUT CHARACTER IN DATA TABLE 
RO,R2 *:GET THIS DIGIT 
+: T THIS CHARACTER 
3$ :7BR IF NOT THE LAST DIGIT 
2$ [BR IF IT IS THE LAST DIGIT 
RS S:ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
R5,2(SP) ::ASCIZ CHAR. & PUT IT ON THE STACK 
RESTORE ALL REGISTERS 
PC >= RETURN TO USER 
R3 ;:POSITION THE MASK FOR THE LAST DIGIT 
R1 [POSITION THE BINARY NUMBER FOR 
RO i: THE NEXT OCTAL DIGIT 
RO 
R1 
RO 
R3,R2 7 2MASK our ALL JUNK 
#°0,R2 i:MAKE HIS CHAR. ASCII 
1$ :G IT IN THE DATA TABLE 


O PUT 
14, 7 ZRESERVE DATA TABLE 


CKKTAAO 11/44 MEM MGMT PRT A 
TRAP DECODER 


2947 


060002 


041024 


000904 


So 
wi 
ao 


041234 
000340 


Oe kkk ek a ed ed ed od od = 

MP=—SSoelIF 
wo 

OROaWRRUSORN 


Nm 


012737 
016706 000076 
005067 
005267 


RRRR RKRRRRRRRREKKK 


_— oo 
St 
RVES 
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-SBTTL TRAP DECODER 


SEQ 0102 


Dement geen pte gern ae eel aap at a er ge eng a Onn ggg 


7*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 


:*AND USE IT TO INDEX THROUGH 
S*OF THE DESIRED ROUTINE. 
**#GO TO THAT ROUTINE. 
STRAP: 


MOV RO,-(SP) 

MOV (Sp), RO 

TST 

MOVB (RO) ”R0 

ASL RO 

ore $TRPAD (RO) ,RO 


$TRAP2: 


000002 ort 4(SP) ,2(SP) 
-SBTTL _TRAP TABLE 


RTS R T 
;THIS IS USE TO HANDLE THE “GETPRI'’ MA 
MOV (SP) ,-(SP) 


STARTING ADDRESS 


THE TRAP TABLE FOR THE 
THEN USING THE ADDRESS OBTAINED IT WILL 


3;SAVE_RO 
2 2GET TRAP ADDRESS 
UP BY 2 


;BACK 
33GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 


:sMOVE THE PC DOWN 
:sMOVE THE PSW DOWN 
:sRESTORE THE PSW 


*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


;*BY THE ‘‘TRAP’’ INSTRUCTION 
ROUT INE 


Z T 
$TRPAD: .WORD $TRAP2 
$TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOQUT ROUTINE 
$TYPOC ::CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
S$TYPDS ::CALL=TYPDS — TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
$TYPBN ::CALL=TYPBN  TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
SGTSWR ::CALL=GTSWR §_ TRAP+7(104407) GET SOFT-SWR SETTING 
SCKSWR ::CALL=CKSWR | TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 
SRDCHR ;;CALL=RDCHR = TRAP#11(104411) TTY TYPEIN CHARACTER ROUT INE 
SRDLIN ::CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 
SSAVREG ::CALL=SAVREG TRAP+13(104413) SAVE RO-R5 ROUTINE 
SRESREG ::CALL=RESREG TRAP+14(104414) RESTORE RO-R5 ROUTINE 
.SBITL POWER DOWN AND UP ROUTINES 
CER ERKEAAKEKEEAAAAEKERAAEARAERAAAEAKEAEAEAEAEKAEAEREAAEEAKEAERAEKEKEKRAEEKEKRERKKKEK 
* POWER DOWN ROUTINE 
000024 $PWRDN: MOV WSILLUP,@#PWRVEC ;;SET FOR FAST UP 
000026 MOV #340, @#PWRVEC+2 ;:PRIO:7 
MOV’ RO,-(SP) +:PUSH RO ON STACK 
MOV R1,-(SP) +:PUSH R1 ON STACK 
MOV R2,-(SP) +:PUSH R2 ON STACK 
MOV R3,-(SP) +:PUSH R3 ON STACK 
MOV R4.~(SP) + PUSH R4 ON STACK 
MOV R5,-(SP) =PUSH R5 ON STACK 
MOV aSwWR,- (SP) +:PUSH @SWR ON STACK 
MOV SP, $SAV t:SAVE SP 
000024 MOV #SPWRUP, @#PWRVEC ::SET UP VECTOR 
BR 72 : HANG 
PITTITITITITITIITT LLL L TLL LTT LLL LL LLL LLL 
POWER UP_-ROUTINE 
000024 $PwRUP: MOV #SILLUP, a#PWRVEC SET FOR FAST DOWN 
MOV SSAVR6, SP :i:GET SP 
CLR SSAVR6 WAIT LOOP FOR THE TTY 
1$: INC SSAVR6 SWAT FOR THE !NC 


m 6 
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SEQ 0103 


1$ 
time at 


wi 
Nm 


:zPOP STACK INTO RO 
041056 #SPWRDN, @APWRVEC ;;SET UP THE POWER DOWN VECTOR 
000340 ' #340, Q4PWRVEC+2 ;;PRIO:7 
ZZREPORT THE POWER FAILURE 
PWRMSG ;;POWER FAIL MESSAGE POINTER 
Tal laa es START 


Ss 
#20,2(SP) 
$TBIT 


a3 SS SS 


PRS ERoRNNSsETSE 


000020 
140114 


32 THE POWER UP SEQUENCE WAS STARTED 
72 3; BEFORE THE POWER DOWN WAS COMPLETE 


6: 0 ;;PUT THE SP HERE 
: .ASCIZ <12><15>? POWER FAILURE - RESTARTING ?<12><15> 


SRUBESSeRROse aS 


UNE 
VINn&— 
—_ —d ed 
RS>3 
oO = NVI  O NO 


kk kk ak th a at a hh ot tt ot ot 
Moro 


04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 


ou--—— 
— — NN 
NMANWO 
~~ 1 Os Os 
SRISSAN=RSR 





x 
x 
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-SBTTL ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS 


SEQ 0104 


NLIST BEX 
041304 125 116 105 EMI: ~ASCIZ /UNEXPECTED CPU TRAP TO LOC. 004/ 
041344 125 116 105 as: ~ASCIZ /UNEXPECTED MEM. MGMT. TRAP TO LOC. 250/ 
041413 120 \e6 111 EMS: -ASCIZ /PRIORITY BITS SET WRONG IN PSW/ 
041452 115 11 104 EM4: -ASCIZ /MODE BITS SET WRONG IN PSW/ 
041505 104 125 101 EMS: -ASCIZ /DUAL ADDRESSING BETWEEN HI@LO BYTES OF PSW/ 
041560 113 105 122 EM6: eASCIZ /KERNEL R6 CHANGED BY WRITING SUPERVISOR OR USER R6/ 
041643 101 040 115 ~EM?: -ASCIZ /A MEMORY MGMT. REG. TIMED OUT/ 
041701 123 125 115 —M10: .ASCIZ /SUMMARY OF MEM. MGMT. REG. TIMEOUTS/ 
041745 115 105 115 EM11: .ASCIZ /MEM. MGMT. REG. WOULD NOT CLEAR/ 
042005 115 105 115 EM12: .ASCIZ /MEM. T. REG. BITS NOT SET CORRECTLY/ 
042054 123 122 060 EM15: .ASCIZ /SRO EFFECTED BY WRITE TO PSW/ 
042111 115 115 122 E€M14: .ASCIZ /MAR1 DID NOT TRACK PROPERLY/ 
042145 115 115 122 EM15: .ASCIZ /MAR3 IS HOLDING THE WRONG DATA/ 
042204 104 125 101 EM16: .ASCIZ /DUAL ADDRESSING BETWEEN PAR-PDR GROUPS/ 
042253 102 101 104 E—M17: .ASCIZ /BAD RELOCATION,ON STORING DATA 18-81T MAPPING/ 
2971 042331 120 110 131 EM20: .ASCIZ /PHYS. ADDR. FORMED WRONG IN RELOCATE MODE/ 
2 042403 123 122 062 EM21: .ASCIZ /SR2 NOT TRACKING CORRECTLY/ 
0424 127 122 117 EM22: .ASCIZ /WRONG PDR'S REFERENCED WHILE IN RELOCATE MODE/ 
2974 042514 120 101 122 EM23:  .ASCIZ /PAR OR PDR CHANGED BY A RESET/ 
042552 115 101 111 EM24: .ASCIZ /MAINT. MODE (SRO <8>) NOT DISABLED BY A RESET/ 
0426 104 101 124 EM25:  .ASCIZ /DATA INCORRECT AFTER A MAINT. MODE WRITE/ 
2977 042701 123 117 125 EM26: .ASCIZ /SOURCE RELOCATED IN MAINT. MODE/ 
042741 123 122 062 EM27: .ASCIZ /SR2 DID NOT LOCK UP CORRECT VIRTUAL ADDRESS/ 
04301 106 117 114 EM30: .ASCIZ /FOLLOWING PAR-PDR WILL NOT ZERO/ 
04305 123 125 115 EM31:  .ASCIZ /SUMMARY OF DUAL ADDRESSING ERRORS/ 
2981 043117 123 125 115 EM32:  .ASCIZ /SUMMARY OF COUNT PATTERN FAILURES/ 
043161 105 122 122 EM33:  .ASCIZ /ERROR IN BYTE ADDRESSING OF PAR-PDR/ 
2983 043225 124 110 105 EM34: .ASCIZ /THE FOLLOWING ARE DUAL ADDRESSING ERRORS FOR PAR'S-PDR'S/ 
043316 124 110 105 €M36: .ASCIZ /THE FOLLOW ARE COUNT PATTERN ERRORS FOR PAR'S~PDR'S/ 
2985 043405 111 114 114 EM40: .ASCIZ /ILLEGAL (MODE 10) STACK POINTER NOT MAPPED TO USER/ 
043470 061 070 055 €M41: .ASCIZ /18-BIT MAPPING POSSIBLE HOLE IN MAIN MEMORY FROM/ 
2987 043551 106 101 125 EM42: .ASCIZ /FAULTY PROPAGATION 18-B1T MAPPING/ 
04362 061 070 OSS E—M43: .ASCIZ /18-BIT MAPPING POSSIBLE HOLE AT TOP OF MEMORY/ 
2989 043677 116 117 040 EM44: .ASCIZ /NO RRVEC,AT 18-BIT ADDR. 
2990 043752 104 111 i104 EM45: .ASCIZ /DIDN'T GET WRAP AROUND TO ADDRESS ZERO/ 
04402 116 117 040 EM46: .ASCIZ /NO TRAP THRU ERRVEC, ON NON-EXISTANT ADDR./ 
2992 044074 120 122 105 EM47: .ASCIZ /PREMATURE END OF MEMORY FOUND/ 
2993 0441 062 062 055 €—MSO0: .ASCIZ /22-BI1T MAPPING POSSIBLE HOLE IN MAIN MEMORY FROM/ 
299% 044213 102 101 104 EMS1: .ASCIZ /BAD RELOCATION, CARRY PROPAGATION 22-BIT MAPPING/ 
2995 044273 062 062 O55 EMS2:  .ASCIZ 2-BIT MAPPING POSSIBLE HOLE AT TOP OF MEMORY/ 
2996 044351 104 111 106 EM53:  .ASCIZ /DID NOT IBUS ADDRESS/ 
2997 044404 127 055 102 EM54: .ASCIZ /W-BIT DID NOT GET SET IN PDR/ 
2998 044441 127 055 102 EM55: ASCIZ /W-BIT SET IN MORE T 
2999 044500 127 055 102 EM56: .ASCIZ /W-BIT NOT CLEARED BY WRITING TO PDR/ 
3000 044544 127 055 102 EM57: .ASCIZ /wW-BIT GOT SET DURING ODD ADDR. ABORT/ 
id 044611 116 117 040 EM60: .ASCIZ /NO APT SPECIAL HARDWARE FOUND/ 
3003 044647 117 114 104 DH1: -ASCIZ /OLD PC OLD PSW R6 WAS CPUERR TESTNO ERRORPC/ 
3004 044727 117 114 104 DHe: -ASCIZ /OLD PC OLD PSW R6 WAS SRO SR1 SR2 TESTNO ERRORPC/ 
3005 045026 127 122 117 DH3: eASCIZ /WROTE READ TESTNO ERRORPC/ 
3006 045066 101 104 104 DH7: -ASCIZ /ADDRESS TESTNO ERRORPC/ 
3007 045116 122 105 107 DH10: .ASCII] /REGISTER-ADDRS NUM OF/<CRLF> 
3008 045146 101 116 104 eASCIZ /AND~ - TIMOUTS TESTNO ERRORPC/ 
3009 045216 122 105 107 DHT11 ASCII /REGISTR READ READ (BINARY) /<CRLF > 
3010 045254 101 104 104 -ASCIZ /ADDRESS (OCTAL) 5432109876543210 TESTNO ERRORPC/ 


me 
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3011 045336 122 105 107 DH12: ASCII /REGISTR WROTE READ READ=(SINARY)/<C cF> 
3012 045404 101 104 104 "ASCIZ /ADDRESS (OCTAL) (OCTAL) 543210987654321 | TESTNO ERRORPC/ 
3013 045476 122 105 101 DH13:  <>ASCIZ /READ | TESTNO ERRORPC/ 
3014 045526 105 130 120 DH14:  .ASCIZ /EXPECTD (MMR1) TESTNO ERRORPC/ 
3015 045566 114 117 101 OH15:  .ASCIZ /LOADED (MMR3) TESTNO ERRORPC/ 
3016 045626 111 116 104 DH16: ASCII /INDEX INDEX PAR=PDR/<CRLF> 
3017 045656 105 130 120 "ASCIZ /EXPECTD RECEIVD ADDRREAD TESTNO ERROR >C 
3018 045727 126 111 122 DH17: -ASCIZ /VIR ADDR KIPAR4 GDDATA BADDATA TESTA) “ ERRORPC/ 
3019 046010 120 110 131 DH20: ASCII /PHYSICL PAR 4 PAR S/<CRLF> 
3020 046036 101 104 104 "ASCIZ /ADDRESS VBA VBA AR 4 PARS PSw TESTNO ERRORPC/ 
3021 046136 123 122 062 DH21:  .ASCIZ /SR2 WAS EXPECTD TESTNO ERRORPC/ 
58 046176 120 110 131 DH22: -ASCII /PHYSICL PAR 4/<CRLF> : 
04621 101 104 104 "ASCIZ /ADDRESS V.B.A. PAR 4 SRO WAS SR2 WAS PSw TESTNO ERRORPC/ 
3024 046314 124 105 123. DH24: <ASCIZ /TESTNO ERRORPC/ 
25 0463346 107 104 104 DH30: .ASCIZ /ADDRESS DATA — TESTNO ERRORPC/ 
26 046374 101 104 104 DH31:  .ASCII /ADDROR ADDRAND ADDROR ADDRAND/<CRLF> 
2? 0464 114 117 101 ASCIZ /LOADED LOADED eos wo TESTNO #ERRORS/ 
3028 046513 101 104 104 DH32:  .ASCIZ /ADDROR ADDRAND PATRNOR PATRNAD DATAOR DATAAND TESTNO #ERRORS/ 
3029 046613 101 104 104 DH33:  .ASCIZ /ADDRESS EXPECTD RECEIVD TESTNO ERRORPC/ 
3030 04666 101 104 104 DH34:  .ASCIZ /ADDRESS ADDRESS/ 
3031 046703 101 104 104 DH36:  .ASCIZ /ADDRESS DATARED PATTERN COUNT TESTNO/ 
3032 046752 122 105 101 DH40:  <:ASCII /READOFF TESTNO ERRORPC/<CRLF> 
3033 047002 123 124 101 "ASCIZ /STACK/ 
04701 123 124 101 DH41: -ASCIZ /STARTBK FINISHBK TESTNO ERRORPC/ 
3035 047051 120 101 124 DH42:  .ASCII /PATTERN DATA — ADDRESS/<CRLF> 
0471 114 117 101 “ASCIZ /LOADED FETCHED INTENDED TESTNO ERRORPC/ 
3037 047153 123 124 101 DH43:  .ASCIZ /STARTBK TESTNO ERRORPC/ 
047 104 101 124 DH45: eASCIZ /DATA TESTNO ee ag 
3039 047233 116 105 101 DH46: .ASCIZ /NEADDR TESTNO ERRORPC/ 
0472 113 111 120 DH47: ASCIZ /KIPAR4 LASTBLOCK St ERRORPC/ 
3041 047326 120 104 122 DH5S4: ASCII VIRTUAL/<CRLF> 
3042 047346 124 105 123 “ASCIZ /TESTED ADDRESS TESTNO ERRORPC/ 
3043 047406 120 104 122 DHSS: ASCII /PDR IN VIRTUAL/<CRLF> 
3044 047436 105 122 122 “ASCIZ /ERROR TESTED ADDRESS TESTNO ERRORPC/ 
3045 047506 120 104 122 DH56:  .ASCIZ /PDR TESTNO ERRORPC/ 
6 0475 126 104 122 DHS7: -ASCIZ /PDR WAS EXPECTD TESTNO ERRORPC/ 
3047 047576 105 122 122 DH60: eASCIZ /ERRORPC/ 
3048 EVEN 
3050 047 001260 001262 001256 DT1:  .WORD TRAPPC,TRAPPS,WASR6,CPUERR, TESTNO, SERRPC ,0 
3051 047624 001260 001262 001256 ODT2: ~ WORD TRAPPC , TRAPPS WASSRO,WASSR1 ,WASSR2, TESTNO, SERRPC ,0 
3052 047646 001162 001164 001254 DT3: WORD $REGO,$REG1,TESTNO, SERRPC 0 
3053 047660 001162 001254 001116 DT7: “WORD  $REGO, TESTNO, SE 
3054 047670 001320 001316 001274 DT10:  :WORD TONUM. TESTNO, SERRPC ,0 
04 001162 001164 001164 DT11 “WORD  $REGO,$REG1,$REG1, TESTNO, SERRPC 
3056 047720 001162 001164 001166 DT12: .WORD $REGO.$REG1. *SREG2, TESTNO, « SerRPc.0 
04 001170 001164 001254 D114: [WORD $REG3.$REG1.TESTNO,SERRPC,0 
3058 047750 001166 001164 001254 DT15: :WORD $REG2.$REG1.TESTNO,SE 
047762 001162 001164 001166 DT16: {WORD $REGO.$REG1.S$REG2, TESTNO, SERRPC,0 
047776 001162 172350 001164 DT17: {WORD $REGO.KIPAR4,$REG1,$REG2.TESTNO,SERRPC 0 
3061 050014 001302 001276 001300 DT20:  :WORD PBALO VIRT1 Vinge. $REG4 , $REGS.STMPO, TES TNO, SERRPC 0 
050036 001270 001164 001254 DT21 ; WORD SR2- SRE Gi, TEST 
3063 050050 001302 001276 001172 DT22:  =WORD PBALG init $abeen WASSRO,WASSR2, $TMPO, TESTNO, SERRPC ,0 
3064 050072 001254 001116 000000 DT24:  :WORD TES TN SE ERRPC O 
3065 050100 001164 001166 001254 DT25: WORD PRS TESTNO, SERRPC 0 
3066 050112 001270 001172 001254 DT27: _WORD ane sR5 SREG4, TESTNO, SERRPC , 0 
3067 050124 001162 001166 001254 DT30:  :WORD SRE GO” $REG2, TESTNO, ERRCNT, 0 
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ERROR MESSAGES, DATA HEADERS-TABLES & F SEQ 0106 


050 001316 001320 001306 DT31: WORD ADDROR , ADRAND , DATAOR, DATAND, TESTNO, ERRCNT ,0O 
3069 050154 001316 001320 001312 DT32: WORD ADDROR ,ADRAND ,PATTOR,PATAND ,DATAOR,DATAND, TESTNO,ERRCNT,O 
050 001162 001166 001164 DT33:  :WORD $REGO,$REG2,$REG1, TESTNO, SERRPC 0 
3071 050212 001162 001164 001254 DT35: WORD $REGO.$REG1.TESTNO,O 
3072 050222 001162 001166 001172 D137: .WORD $REGO.$REG2.$REG4,$REG1,TESTNO,O 
3073 050236 001200 001202 001254 DT41: WORD STMP1.STMPG, TESTNO SERRPC,0 
% 050250 001166 001170 001162 DT42: [WORD $REG2.$REG3,$REGO, TESTNO, SERRPC,0 
3075 050264 001200 001254 001116 DT43:  .WORD $TMP1,TESTNO,SERRPC,0 
3076 050274 001164 001254 001116 DT45 ~WORD SREG1, TESTNO, SERRPC ,0 
3077 050304 172350 003022 001254 DT47 ~ WORD KIPARS SLSTBK, TESTNO, SERRPC ,0 
3078 050316 001174 001170 001254 DT54: [WORD $REGS,$REG3,TESTNO, SERRPC,O 
3079 050330 001162 001174 001170 DT55: [WORD $REGO.$REG5,SREG3, TESTNO, SERRPC 0 
3080 050344 001174 001254 001116 DT56: .WORD SAE SS» TESTND. SERCO 
3081 050354 001116 000000 DT60:  :WORD $ERRPC,O 
3083 050360 000 000 000 DF1:  .BYTE 0,0,0.0.0 
050365 000 000 000 DF2:  .BYTE 0.0.0.0.0,0,0,0 
3085 050375 000 000 000 DF3: § .BYTE 0.0.0.0 
050401 000 000 000 DF7: BYTE 0.0.0 
3087 050404 000 000 001 DF10: {BYTE 0.0-1,0.0 
3088 050411 000 000 002 DF11: BYTE 0.0.2.0.0 
3089 050416 000 000 000 DF12: BYTE 0.0.0.2.0,0 
3090 050424 000 000 000 DF16: .BYTE 0.0.0.0.0.0 
3091 050432 003 000 DF20: BYTE 3.0.0.0.0.0.0.0 
3092 050442 000 000 DF24:  -BYTE 0.0 
3093 050444 000 000 000 DF32: BYTE 0.0,0,0,0.1 
3094 050452 000 000 000 DF33: BYTE 0.0.0.0.0-0,0,1 
3095 050462 004 000 000 DF43: .BYTE 4,0,0 
3096 List BEX 
3097 EVEN 
3098 


3099 000001 - END 


a 


eeeee 
at 


ADEVM = 000000 
ADRAND 001320 
NV_ = 000000 


D 
MACRO M1111 26=SEP=79 12:27 PAGE 36-3 


SEQ 0107 

000001 DH15 045566 D147 050304 ERRVEC= 000004 
000002 DH16 045626 DT54 050316 FORMPA 003220 
DH17 045727 DT55 050330 GTSWR = 104407 

000010 DH2 044727 DTS6 050344 HDWFLA 001 
000020 DH20 046010 DT60 050354 HOLFLG 001336 
DH21 046136 DT7 7660 H = 000011 
000100 DH22 046176 DUALAD 002334 IOTVEC= 000020 
000200 DH24 046314 EMTVEC= 30 KDPARO= 172360 
DH3 045026 M 041304 KDPAR1= 172362 
001000 DH30 046334 EM10 41701 DPAR2= 172364 
000002 DH31 046374 EM11 041745 KDPAR3= 172366 
002000 DH32 046513 EM 42005 KDPAR4= 172370 
DH35 046613 EM1 042054 KDPARS= 172372 
010000 DH34 046663 EM14 042111 KDPAR6= 172374 
020000 DH36 046703 EM15 042145 KDPAR7= 172376 
DH40 046752 EM16 2204 K = 172320 
100000 DH41 047010 EM17 042253 KDPDR1= 172322 
DH42 047051 E 041344 K = 172324 
000010 DH43 047153 EM20 042331 KDPDR3= 172326 
000020 DH45 047203 EM21 042403 KDPDR4= 172330 
DH46 047233 EM22 042436 - KDPDRS= 172332 
000100 DH47 047262 EM23 042514 KDPDR6= 172334 
000200 DH54 047326 EM24 042552 KDPDR7= 172336 
DHS5 047406 EM25 042630 KERSTK= 001100 
001000 DH56 506 EM26 042701 KIPARO= 172340 
14 DH57 047536 EM27 042741 KIPARI= 172342 
104410 DH60 047576 EM3 041413 KIPAR2= 172344 
002276 DH7 045066 EM30 043015 KIPAR3= 172346 
00 DISPLA 001142 EM31 043055 KIPAR4= 172350 
37175 DISPRE 74 EM32 043117 KIPARS= 172352 
037116 D = 177570 EM33 043161 KIPAR6= 172354 
177766 DT1 04 EM34 043225 KIPAR7= 172356 
001334 DT10 047670 EM36 043316 KIPDRO= 172300 
15 DT11 047704 E 041452 KIPDR1= 172302 
000200 DT12 047720 EM4O 043405 KIPDR2= 172304 
001310 DI14 04 EM41 043470 KIPDR3= 172306 
001306 DT15 047750 EM42 043551 KIPDR4= 172310 
177570 DT16 047762 EM43 043621 KIPDR5= 172312 
050360 DT17 047776 EM44 043677 KIPDR6= 172314 
0404 DT2 047624 EM45 043752 KIPDR7= 172316 

050411 DT20 050014 EM46 044021 KSP = 

050416 DT21 050036 EM47 044074 F 12 
050424 DT22 050050 EMS 041505 020456 
050365 DT24 050072 EMSO 044132 MGMERR 003122 
050432 DT25 050100 —M51 044213 MGMF LG 3124 
0442 DT27 050112 EMS2 044273 = 177572 
050375 DT3 7646 EMS3 044351 MARI = 177574 
04 0130 050124 EMS4 044404 MAR2 = 177576 
050452 D131 050136 EMSS 044441 3 = 172516 
050462 DT32 050154 EM5S6 0445 MMVEC = 250 
050401 DT33 050176 EM57 044544 OLDPC 001326 
D135 050212 EM6 0415 OLDPS 001350 
045116 D137 050222 EM60 044611 PARCOU 400 
045216 DT4i 050236 EM? 041643 PARTAB 001356 
045336 D142 050250 ERRCNT 001322 PATAND 001314 
045476 D143 050264 ERROR = 104000 PATTOR 001312 
045526 D145 050274 ERRTYP 035624 PBAHI 001504 





9 
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SYMBOL SEQ 0108 
001302 SIPDR7= 172276 TST13. 022266 UDPDR2= 177624 $0B20 040650 
PCPUER 001332 RO = 177572 TST14 022420 UDPDR3= 177626 SDEVCT 001234 
PIRQ = 177772 SR1 9 = 177574 TST15 =©—022562 PDR4= 177630 SDOAGN 035126 
PIRQVE= 000240 SR2 = 177576 TST16 022622 UDPDRS5= 177632 S$DTBL 0405 
PRO = 000000 SR3_- =_ 172516 TST17 = 0232.26 UDPDR6= 177634 035116 
PRI = 0 SP =%000006 TST2 020644 UDPDR7= 177636 SENDCT 74 
PR2 = STACK = 001100 TST20 023350 UIPARO= 177640 NULL 035170 
PRS = 000140 START TST21 023546 UIPARI= 177642 SENV 001244 
PRE = 2 STKLMT= 177774 TST22 023744 UIPAR2= 177644 SENVM §=001245 
PRS = 000240 SUPSTK= 000700 TST23 024142 UIPAR3= 17764 SEOP 034714 
PR6 = 001140 TST24 024340 UIPAR4= 177650 SEOPCT 36 
PR? = 340 SWREG 000 TST25 024536 UIPARS= 177652 SERFLG 001103 
PS = 177776 = TST26 024734 UIPAR6= 177654 $E 001115 
PSwW == 177776 SwOO = 000001 TST27 046 UIPAR7= 177656 SERROR 035366 
PWRMSG 041242 SwO1 = 000002 TST3 020730 UIPDRO= 177600 SERRPC 001116 
PWRVEC= 000024 SwO2 = TST30 025160 UIPDR1= 177602 SERRTB 001372 
RDCHR = 104411 SwO3 = 000010 TST31 =©025272 UIPDR2= 177604 SERTTL QO1112 
RDLIN = 104412 Sw0O4 = 000020 TST32 025410 UIPDR3= 177606 SESCAP 001212 
RE 001342 SwOS = 0 TST33 = 025526 UIPDR4= 177610 SET 001244 
RESREG= 104414 SwO6 = 000100 TST34 644 UIPDRS= 177612 SETEND 001254 
RESVEC= 000010 SswO7 = 000200 TST35 025750 UIPDR6= 177614 SFATAL 001226 
RMIREG= 177770 SwO8 = 0004 TST36 026054 UIPDR7= 177616 SFFLG 040024 
R6 =%000006 SwO9 = 001000 TST37 026160 USESTK= 000600 SFILLC 001156 
R7 =%000007 Sw1 = 2 TST4 021052 USP = SFILLS 001155 
SAVREG= 104413 SW10 = 002000 TST40 026264 VIRT1 001276 001120 
SCOPE = 000004 SW11 = 004 TST41 026370 VIRT2 00 SGDDAT 001124 
= 172260 SWi2 = 010000 TST42 64 WASR6 001256 $GET42 035070 
SDPAR1= 172262 SW13 = 020000 TST43 026570 WASSRO 0012 SGTSWR 036202 
SDPAR2= 172264 SW14 = 04 TST44 027116 WASSR1 001266 = 
SDPAR3= 172266 Sw15 = 100000 TST45 = 027252 WASSR2 001270 SHIBTS 204 
SDPAR4= 172270 SW2 = TST46 =—027510 WBIT = SICNT 001104 
SDPARS= 172272 SWw3 == 000010 TST47 §=—031452 SAPTHD SILLUP 041234 
SDPAR6= 172274 SW4 = 000020 TST5 021212 SATYC 37604 SINTAG 001135 
SDPAR7= 172276 SWS = 0 TST5O = 032312 $ATY1 037560 SITEMB 001114 
172220 SW6 = 000100 TST51 033174 SATY3 03 SKTNEX 002670 
SDPDR1= 172222 SWw7 == 000200 TSTS2 34010 SATY4 037576 $KTOUT 2660 
SDPDR2= 172224 Sw8 = 000400 TST53 034204 SAUTOB 1134 $KT11 062512 
SDPDR3= 172226 Sw9 = 001000 TST54 = 034412 $BDADR 001122 SLF 001222 
SDPDR4= 172230 T = 20 TSTSS 034620 S$BDDAT 001126 SLFLG 040023 
SDPDR5= 172232 TBITPS 001272 TST6 021364 $BELL 001214 SLOOP 035164 
SDPDR6= 172234 TBITVE= 000014 TST7 021516 $BIN 040100 SLPADR 001106 
7= 172236 TESTNO 001254 TYPBN = 104406 SCHARC 037554 SLPERR 001110 
SIPARO= 172240 TIMERR 003024 TYPDS = 104405 SCKSWR 036132 SLSTAD 003020 
SIPARI= 172242 TIMFLG 003026 TYPE = 104401 $CLR.T 035106 SLSTBK 003022 
SIPAR2= 172244 TKVEC = TYPOC = 104402 SCMTAG 001100 SMAIL 001224 
SIPAR3= 172246 TOF F 002172 TYPON = 104404 CM1 = 000006 000206 
SIPAR4= 172250 TON 002226 TYPOS = 104403 $cM2 = 000014 SMFLG 040022 
SIPARS= 172252 TONUM §=001274 UDPARO= 177660 $CM3 = 000006 SMNEW 037105 
SIPAR6= 172254 TPVEC = UDPAR1= 177662 $cM4 = 000006 SMSGAD 001240 
SIPAR7= 172256 TRAPPC 001260 UDPAR2= 177 SCNTLC 001350 SMSGLG 001242 
S 172200 TRAPPS 001262 UDPAR3= 177 SCNTLG 037067 SMSGTY 001224 
SIPDR1= 172202 TRAPVE= 34 UDPAR4= 177670 SCNTLU 037062 SMSWR 037074 
SIPDR2= TRIVEC= UDPARS= 177672 002676 SMX CNT 
SIPDR3= 172206 TST] 020566 UDPAR6= 177674 $CPUOP 001252 L_ 001154 
SIPDR4= 172210 TST10 =021650 UDPAR7= 177676 $SCRLF_ 001221 SNWTST= 
SIPDRS= 172212 TST11 022002 UDPDRO= 177620 $CROUT 2726 SOCNT 


00 040324 
SIPDR6= 172214 TST12 022134 ‘ UDPDR1= 177622 SDBLK 040544 SOCTVL 040752 


CKKTAAO 11/44 MEM MGMT PRT A MACRO M1111 26=SEP=79 12:27 PAGE 36-5 
SYMBOL TABLE SEQ 0109 
177777 STMP4 §=0012 

STMPS et 


SOVER 
SPASS 


~~ SS 
_— tt = td 


GRRLOLSSESES 


oO 
Ww 


g 


& 
VEVRSFREGARVNSSF 


a Pee eer 


ee 


SSIZEX 040026 


000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 59296 WORDS ( 232 PAGES) 
DYNAMIC MEMORY: 20434 WORDS ( 78 PAGES) 

ELAPSED TIME: 00:07:09 

CKK TAAO.BIN, CKKTAAO. SEQ/CRF =CKK TAAO.MLB/ML , CKKTAAO.P17 





ronan nn nnn tn nnn nnn na 


—_. 


0-884 
#12=1255 
*18-1654 

36-3068 


10-884 


*12-1259 
*18-1654 


10-884 


10-884 
10-884 
10-884 


10-884 


#34-2940 
34-2939 
#34-2940 
34-2940 


CREATED BY MACRO ON 24=SEP=79 AT 12:31 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


#12=1274 
* 18-1654 
36-3069 


12-1275 
* 18-1654 
36-3069 


34-2940 
#34-2940 


PAGE 1 
CREF 


#12=1297 
* 18-1660 


12-1298 
*18-1660 


#34-2940 





CKK TAAO 


SYMBOL CROSS REFERENC 
SYMBOL VAL 


VALUE 

APTTST 031372 
A = 000000 
ATESTN = 000000 
AUNIT = 000000 
AU = 000000 
AVECT1 = 000000 
AVECT2 = 000000 
BADPC 001324 
BITO = 000001 
BITOO = 000001 
BITO1 = 000002 
BITO2 = 000004 
BITO0S = 000010 
BITO4 == 000020 
BITOS = 000040 
BITO6 = 000100 
BITO7 = 000200 
BIT08 = 00 
BITO9 = 001000 
BIT1 = 2 
BIT10 = 002000 
BIT11 = 000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT7 = 000200 
BITS8 = 0004 

BIT9 = 001000 
BPTVEC = 000014 
CKSWR = 104410 
CLEANU 002276 
CLRREG 002260 
CMSG 037175 
CNTRLC 037116 
CPUERR = 177766 
CPUE XP 001334 
CR = 000015 
CRLF = 000200 


at ag 
10-884 


36-3019 


#30-2337 
10-884 


34-2834 


34-2832 
19-1770 
19-1786 
18-1707 


9-818 


9-819 

15-1442 
29-2193 
30-2318 
30-2327 


34-2834 
21-1913 
25-1978 
21-1913 
24-1936 


434-2937 


36-3022 


CREATED mt MACRO ON 26-SEP-79 AT 12:31 
REFERENCES 


* 30-2627 


34-2833 
34-2833 


34-2834 
34-2833 
19-1772 


30-2512 


30-2341 


30-2328 


34-2834 


21-1913 
25-1942 


434-2924 
12-1333 
12-1337 
34-2939 


13-1425 
36-3026 


PAGE 2 
CREF 


34-2834 


30-2562 


29-2234 
30-2320 
30-2397 


#35-2967 
22-1924 
26-1991 
21-1918 
25-1942 


*12-1340 
*30-2429 


34-2939 
36-3032 


29-2252 
30-2321 
30-2540 


23-1930 


21-1918 
30-2289 


*15-1441 


* 30-2444 


34-2939 
36-3035 


30-2310 
30-2322 


24-1936 


22-1924 
30-2291 


* 15-1444 


* 30-2454 


36-3007 
36-3041 


30-2311 
30-2323 


25-1942 


22-1924 
30-2293 


30-2471 


* 30-2463 


36-3009 
36-3043 


30-2312 
30-2324 


25-1960 


23-1930 
30-2295 


*30-2491 
*30-2568 


36-3011 


30-2313 
30-2325 


25-1966 


23-1930 
30-2297 


30-2611 
* 30-2583 


36-3016 


SEQ 011? 





CKK TAAO CREATED BY MACRO ON 26-SEP-79 AT 12:51 cnet 3 


SYMBOL CROSS REFERENCE SEQ 0112 
SYMBOL VALUE 


Vv REFERENCES 
DATAND 001310 #10-884 *12-1258 12-1277 12-1302 36-3068 36-3069 
DATAOR 001306 #10-884 *12-1254 = *12=1276 = *12=1301 36-3068 36-3069 
DDISP = 177570 #9~-807 10-884 13-1424 
DF 1 050360 11-890 11-972 11-1067 11-1169 11-1187 #36-3083 
DF 10 050404 11-933 #36-3087 
DF11 050411 11-940 11-1005 #36-3088 
DF12 050416 11-947 #36-3089 
DF16 050424 #36-3090 
DFe 050365 11-896 11-978 11-1023 11-1092 11-1099 11-1129 11-1135 11-1142 11-1148 
11-1155 36-3084 
DF 20 050432 11-985 11-998 #36-3091 
DF 24 050442 11-1011 11-1111 #36-3092 
DFS 050375 11-902 11-908 11-914 11-920 11-959 11-965 11-991 11-1017 11-1029 
11-1035 11-1042 11-1162 11-1181 436-3085 
DF 32 050444 11-1048  #36-3093 
DF 33 050452 11-1054 #36-3094 
DF43 050462 11-1105  #36-3095 
DF7 050401 11-926 11-953 11-1079 11-1086 11-1117 11-1123 11-1175 #36-3086 
DH? 044 11-88 #36-3003 
DH10 045116 11-930 #36-3007 
DH11 045216 11-937 11-1002 #36-3009 Pp 
DH12 0453 11-944 #36-3011 
DH13 045476 11-951 #36-3013 
DH14 045526 11-957 #36-3014 
DH15 0455 11-963 #36-3015 
DH16 045626 11-969 #36-3016 
DH17 045727 11-976 #36-3018 
DH 044727 11-894 11-1021 #36-3004 
DH20 046010 11-982 #36-3019 
DH21 046136 11-989 11-1027 #36-3021 
DH22 046176 11-995 #36-3022 
DH24 046314 11-1009 11-1109 #36-3024 
DH3 045026 11-900 11-906 11-912 11-918 11-1015 #36-3005 
30 0463 11-1033 #36-3025 
DH31 046374 11-1039 #36-3026 
DH32 046513 11-1046 #36-3028 
DH33 046613 11-1052 #36-3029 
34 046663 11-1058 #36-3030 
DH36 046703 11-1071 = #36-3031 
DH40 046752 11-1083 #36-3032 
DH41 047010 11-1090 11-1133 =#36-3034 
DH42 047051 11-1096 11-1139 11-1152 36-3035 
DH43 047153 11-1103 11-1146  #36-3037 
DH45 047203 11-1115 36-3038 
DH46 047233 11-1121 #36-3039 
DH47 047262 11-1127 #36-3040 
DH54 047326 11-1159 36-3041 
DH55 047406 11-1166 #36-3043 
DH5S6 047506 11-1173 = #36-3045 
DH57 0475 11-1179 = #36-3046 
DH60 047576 11-1185 #36-3047 
DH7 045 11-924 #36-3006 


CKKTAAO CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
DISPLA 001142 
DISPRE 0001 
DSWR = 177570 
oT1 7606 
DT10 047670 
D111 77 
DT12 047720 
DT14 7736 
DT15 047750 
DT16 047762 
DT17 047776 
DT2 047624 
DT20 050014 
DT21 50036 
DT22 050050 
DT24 050072 
DT25 050100 
DT27 050112 
DT3 764 
DT30 050124 
DT31 050136 
DT32 050154 
DT33 050176 
DT35 050212 
DT37 050222 
DT41 50236 
DT42 050250 
DT43 50264 
DT45 050274 
D147 50 
DT54 050316 
DT55 050330 
DT5S6 50344 
DT60 050354 
DT7 047 
DUALAD 002334 
EMTVEC = 

EM1 0413 
EM10 041701 
—EM11 041745 
EM12 200 
EM13 042054 
EM14 042111 
EM15 042145 
EM16 2204 
—M17 042253 
EM2 041344 
EM20 042331 
EM21 042403 
EM22 042436 
EM23 042514 
EM24 042552 


| | 
soesess 


Mo eS SS |S 2 O00 
tt Py oe RP 
+ O— Oo £0—co 


1-1001 


436-2974 
#36-2975 


MACRO ON 26-SEP-79 AT 12:31 
REFERENCES 
#10-8 


#13=1426 
13-1424 


#36-3055 


436-3058 


#36-3051 


#36-3064 


11-913 


436-3073 
11-1154 
#36-3075 


11-1085 
21-1918 
13-1424 


PAGE 4 
CREF 


34-2833 34-2834 


11-919 #36-3052 


#36-3074 


11-1122 36-3053 
22-1924 23-1930 


24-1936 


25-1942 


SEQ 0113 


CKKTAAO CREATED BY MACRO ON 26-SEP-79 AT 12:31 yey: 5 


SYMBOL CROSS REFERENCE SEQ 0114 
SYMBOL VALUE REFERENCES 
11-1014 #36 


SSereeG_easeeresery @ a 
. o 
¥ Nm 
nm 


w 
COLO con oOn-u 


NNQAUUESWW—MNr OO 


conu\nco — Gor 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
A 
2 


& SS Ss Ss Ss = SS Ss SS Ss Ss SS SS Ss SS SS —§ Ss SS SS Ss Ss SS SH 


21-1918 22-1924 22-1924 23-1930 23-1930 
25-1942 25-1960 25-1966 25-1966 
25-1978 26-1985 26-1985 26-1991 26-1991 36-3067 


12-1280 12-1305 12-1307 12-1339 FF by Pg: 


30-2601 30-2618 
32-2782 32-2782 32-2789 32-2789 32-2789 


33-2822 
ERRTYP 035624 83 34-2 
ERRVEC = 000004 #9~-807 12-1310 12-1310 12-1310 12-1310 12-1310 12-1310 12-1310 12-1310 





CKKTAAO 


SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


CREATED BY MACRO ON 26-SEP-79 AT 12:31 


003220 


eens 


— 
NN NN NNN NNN NNNNNN 
MNMNMNNNP Moronoenye 

WWWWNWG 

BSSRNY 

ALNO 


ine) 
WWW 

Ww 

~m 


172346 
172350 


= 172352 


172354 


13-1424 


23-1930 


*30-2548 


12-1310 
18-1648 
26-2020 
32-2782 


*29-2228 
*29-2229 


13-1424 


35-2947 


435-2947 


34-2939 
13-1424 


21-1913 


23-1930 
17-1559 
12-1394 
26-2005 


*30-2308 


* 30-2584 


30-2383 
30-2552 


*29=2227 
2 
32-2782 


*29-2246 
*30-2718 


PAGE 6 

CREF 
13-1424 
*33-2816 
34-2832 


35-2947 
35-2947 


30-2369 
*30-2393 
30-2622 


25-1960 


25-1978 
17-1561 
18-1642 
*26-2005 


32-2782 


*30-2595 
30-2390 
*30-2565 
*30-2309 
32-2782 


*33-2815 
* 30-2737 


13-1424 
33-2826 


34-2832 


35-2947 
35-2947 


30-2381 
30-2409 
*30-2625 


25-1972 


29-2202 
21-1913 
26-2005 


30-2312 


* 30-2405 
30-2624 


23-1930 
27-2077 


33-2819 


#13=1429 
34-2833 


35-2947 
35-2947 
35-2947 


30-2422 
30-2482 
* 30-2630 


33-2818 
21-1913 
26-2005 


30-2313 
30-2325 
*30-2457 
30-2614 


30-2407 
* 30-2662 


23-1930 
27-2095 


*13-1430 
34-2833 


35-2947 


30-2513 
* 30-2485 


21-1913 
26-2005 


30-2317 


30-2484 
"30-2721 


23-1930 
29-2183 


* 30-2344 


30-2523 
* 30-2490 


21-1913 
27-2078 


30-2318 
30-2327 
*30-2519 
*30-2720 
*30-2520 
*39-2742 


25-1978 
*29-2191 


* 30-2374 
34-2833 


35-2947 


*30-2518 


21-1913 
28-2107 


30-2319 
30-2328 
*30-2547 
*30-2741 
30-2525 


26-2020 
30-2290 


SEQ 0115 





CREATED BY 
eer “wit REFERENCE 


ALUE 
172312 
172314 
172316 

%000006 


003124 
177572 


177574 


177772 
000240 
000100 
000140 
000200 
000240 
000300 


000340 
177776 
177776 


MACRO ON 26-SEP-79 AT 12:31 
REFERENCES 
#9-808 *30- *30-2738 


#12=1243 
5 


30-2368 
19-1769 
#14-1439 


*12-1409 
12-1337 
30-2480 


30-26 30-2712 
*32-2798 


PAGE 7 
CREF 


*12-1273 
2-1366 


19-1772 
30-2310 
30-2322 


*30-2512 


#12-1414 
*30-2380 
*30-2527 


12-1395 


30-2724 


sR 


29-2245 
19-1785 


30-2311 
30-2323 


*30-2562 


25-1978 


36-3061 
30-2386 
30-2529 


#12=1331 


30-2747 


19-1793 
30-2312 
30-2324 


*30-2604 
29-2187 


*30-2469 
30-2633 


26-1985 


36-3063 
* 30-2430 
* 30-2594 


19-1795 
30-2313 
30-2325 


* 29-2187 
*30-2476 


26-1991 


30-2434 
30-2598 


30-2487 


* 30-2455 
*30-2611 


*16-1486 


#12-1342 
17-1559 
*18-1672 
* 30-2633 


#34-2913 


19-1816 
30-2318 
30-2327 


*29=2204 
* 30-2489 


30-2459 
30-2612 


*16-1487 


SEQ 0116 





CKKTAAO CREATED BY MACRO ON 26-SEP-79 AT 12:31 PAGE 8 
SYMBOL CROSS REFERENCE CREF SEQ 0117 
SYMBOL VALUE mc ERENCES 
041242 5=2948 #35-2949 
PWRVEC = 000024 7 13-1424 13-1424 35-2948 35-2948 35-2948 35-2948 35-2948 35-2948 
RDCHR = 104411 ~$329 -2947 
ROLIN = 104412 #35-29+7 
READON 001342 #10-884 2-1806 19-1818 
RESREG = 106414 34-2965 #35-294 
RESVEC = 000010 #9~807 13-1424 13-1424 13-1424 
RMIREG = 177770 #9~824 2345 9 #30=2398 = -# 30= 2424 3 3= # 30-2541 
R6 = #9-807 #13=1424 =#13=1424 13-1424 
R7 = #9~-807 
SAVREG = 104413 34-2945 #35-2947 
SCOPE = #9~-807 16-1460 16-1483 16-1509 17-1550 18-1601 18-1641 18-1647 18-1653 
18-1659 18-1665 18-1671 18-1686 18-1741 19-1768 20-1 21-1912 21-1917 
22-1923 23-1929 24-1935 25-1941 25-1959 25-1965 25-1971 25-1977 26-1984 
1990 26-2004 26-2009 26-2014 26-2019 26-2024 26-2029 27-204 27-2073 
2181 29-2222 30-2284 30-2365 30-2509 30-2656 32-2781 32-2787 32-2795 
33-2810 34-2832 
SDPARO = 172260 808 
SDPAR1 = 172262 #9-808 
SDPAR2 = 172264 808 
SDPAR3 = 172266 #9-808 
SDPAR4 = 172270 #9-808 
SDPARS = 172272 #9~-808 
SDPAR6 = 172274 #9-808 
SDPAR7 = 172276 #9~-808 21-1918 21-1918 25-1966 
SDPDRO = 172220 808 
SDPDR1 = 172222 808 
SDPDR2 = 172224 #9-808 
SDPDR3 = 172226 808 
SDPDR4 = 172230 #9~-808 
SDPDRS = 172232 808 
SDPDR6 = 172234 #9-808 
SDPDR7 = 172236 #9-808 24-1936 24-1936 26-1985 
SIPARO = 172240 808 12-1401 18-1654 21-1918 21-1918 21-1918 21-1918 21-1918 25-1966 
26-2010 *26-2010 26-2010 26-2010 26-2010 27-2084 28-2131 30-2292 30-2664 
SIPAR1 = 172242 808 
SIPAR2 = 172244 #9~-808 
SIPARS = 172246 808 32-2789 
SIPAR4 = 172250 #9~-808 *30-2686 *30-2726 *30-2745 
SIPARS = 172252 #9-808 *30-2687 *30-2727 *30-2746 
SIPAR6 = 172254 808 
SIPAR7 = 172256 49-808 
SIPDRO = 172200 808 18-1660 24-1936 24-1936 24-1936 24-1936 24-1936 26-1985 26-2025 
*26-2025 26-2025 26-2025 26-2025 27-2083 28-2119 30-2294 30-2674 32-2789 
2-2789 32-2789 
SIPDR1 = 172202 808 
SIPDR2 = 172204 #9-808 
SIPDR3 = 172206 #9-808 
SIPDR4 = 172210 #9-808 *30-2682 *30-2728 
SIPDRS = 172212 #9~-808 *30-2683 +*30-2729 
SIPDR6 = 172214 49-808 
SIPDR7 = 172216 #9-808 


CKKTAAO CREATED BY MACRO ON 26-SEP-79 AT 12:31 


SYMBOL CROSS REFERENCE SEQ 0118 
SYMBOL 


V 
= 177572 


177574 


nine 


REFERENCES 
#9~-808 


*18-1744 
29-2253 
#9-808 


811 
18-1746 
*29=2258 

9-812 


9-820 
#13-1424 
17-1555 
13-1424 
34-2833 
35-2948 
13-1424 


34-2833 
13-1425 


12-1206 


3 
#12-1341  #13-1434 


13-1424 
34-2834 


34-2920 


12-1219 
12-1221 


36-3051 
0 


18-1642 


*13-1424 
34-2834 


34-2920 


*12-1222 
36-3052 


18-1648 


12-1367 
*29-2197 


29-2254 


*19-1832 
13-1428 


*13-1424 
34-2834 


*13-1436 
36-3053 


18-1654 


*12=1370 
*29=2203 

31-2762 
*19=1839 


13-1425 
34-2834 


36-3054 
36-3063 
36-3072 


18-1660 


18-1606 
* 29-2234 


34-2832 
34-2920 


36-3055 
36-3064 
36-3073 
18-1666 


18-1688 
*29=2252 


34-2833 
34-2920 


36-3056 
36-3065 
36-3074 


18-1672 





CKKTAAO 


SY 
SY 
TOF F 
TON 
TONUM 


*18-1672 
*12-1331 


13-1424 


#18-1653 


#18-1686 


#21-1917 


#25-1959 
425-1965 


#25-1971 


#26-2004 


#30-2284 
30- 233 


#32-2781 


CREATED BY MACRO ON 26-SEP-79 AT 12:31 
MBOL —— 


18-1672 
12-1343 
12-1342 
13-1424 


30-2348 


PAGE 10 
CREF 


32-2782 
8 


*18-1672 
*12-1364 
*12-1365 


#30-2365 


C 10 


32-2789 


36-3054 
12-1374 
12-1373 


32-2797 


18-1660 


*29=2256 
*29-2257 


33-2812 


*18-1660 


29-2264 
29-2263 


*18-1648 
#18-1666 


#31-2754 
#31-2755 


SEQ 0119 


18-1648 
18-1666 


31-2770 
31-2769 


CKKTAAO 


SYMBOL CROSS REFERENCE 
MBOL VALUE 


CREATED BY MACRO ON 26-SEP-79 AT 12:31 


REFERENCES 
#322787 


#18-1641 


34-2869 


22-1924 


25-1942 
12-1397 
26-2015 


32-2797 
* 30-2684 
* 30-2685 


18-1672 
26-2030 
32-2797 


* 30-2680 
* 30-2681 


34-2875 


34-2920 


22-1924 


25-1942 
18-1666 
26-2015 


* 30-2714 
*30-2715 


25-1942 
26-2030 


*30-2716 
*30-2717 


#17-1573 


PAGE 11 
CREF 


34-2932 
2 


34-2929 


26-1991 
22-1924 
26-2015 


*30-2732 
*30-2733 


25-1942 
26-2030 


* 30-2730 
* 30-2731 


19-1843 


435-2947 


34-2920 


35-2947 


22-1924 
27-2090 


*30-2743 
* 30-2744 


25-1942 
27-2089 


*30-2739 
* 30-2740 


*19-1844 


34-2834 
34-2915 
34-2920 
34-2926 


*19-1845 


34-2836 


34-2930 


22-1924 
30-2296 


25-1942 
30-2298 


*19-1852 


34-2853 


34-2939 


22-1924 
30-2663 


26-1991 
30-2673 


26-2030 
32-2797 


SEQ 0120 





10 


CKKTAAO CREATED BY MACRO ON 26-SEP-79 AT 12:31 PAGE 12 
SYMBOL CROSS REFERENCE CREF SEQ 0121 
SYMBOL VALUE REFERENCES 
VIRT1 001276 #10-884 2-1402 12-1408 *30-2699 30-2707 *31-2759 36-3061 36-3063 
VIRT2 1 #10-884 *30-269 36-3061 
WAS 001256 #10-884 *12=1334 = *12-1366 = *29=2255 36-3050 36-3051 
WAS 001264 #10-884 *12=1367 29-2253 =* 31-2761 36-3051 36-3063 
WASSR1 1266 #10-884 *12=1 -3051 
WASSR2 001270 #10-884 *12-1369 *18-1698 18-1700 + =*18-1719 18-1720 #292254 *31=2762 36-3051 
36-3062 36-3063 36-3066 
WIT = 000100 #33 5997 32-2782 32-2782 32-2782 32-2789 32-2789 32-2789 32-2797 32-2797 
SAPTHD 000204 9-883 #9~-883 
SASTAT = teeene 34-2940 34-2940 
SATYC 037604 34-2940 #34-2940 
SATY1 037560 #34-2940 
SATY3 037566 34-2939  #34-2940 
SATYS 037576 34-28 434-2940 
SAUTOB 001134 #10-884 *13-1425 34-2920 34-2920 34-2920 
SBDADR 001122 #10-884 
SBDDAT 001126 #10-884 
SBELL 001214 #10-884 34-2834 34-2834 34-2834 
SBIN 0401 *34-2961 = 34-2941 34-2941 34-2941 
$SCHARC 037554 *34-2939 34-2939 34-2939  *34-2939 34-2939 
SCKSWR 03613 #34-2920 35-2947 35-2947 
SCLR.T 035106 34-2832 #34-2832 
SCMTAG 001100 #10-884 13-1424 13-1424 13-1424 13-1424 13-1424 13-1424 
$CM1 = #10-884 10-884 10-884 #10-884 10-884 10-884 #10-884 10-884 10-884 
ois aes 10-884 10-884 #10-884 10-884 10-884 #10-884 10-884 10-884 
$CM2 = 000014 #10-884 10-884 10-884 #10-884 10-884 10-884 #10-884 10-884 10-884 
tw +44 10-884 10-884 #10-884 10-884 10-884 #10-884 10-884 10-884 
$cm3 = 000006 #10-884 10-884 10-884 
$CM4 = 000006 #10-884 10-884 10-884 #10-884 10-884 10-884 #10-884 10-884 10-884 
At aoe 10-884 10-884 #10-884 10-884 10-884 #10-884 10-884 10-884 
SCNTLC 001350 #10-884 34-2920 34-2920 34-2920 34-2920 
SCNTLG 037067 34-2920 #34-2920 
SCNTLU 037062 34-2920 34-2920 34-2920 
SCORE 002676 12-1310 #12-1310 
$C 001252 #10-884 
SCRLF 001221 #10-884 34-2832 34-2834 34-2834 34-2834 34-2836 34-2855 34-2860 34-2915 
34-2920 34-2920 34-2920 34-2920 34-2939 34-2939 34-2939 
$CROUT 002726 12-1310 #12-1310 
K 040544 34-2943 34-2943 #34-2943 
040650 34-2887 34-2901 434-2945 
SDEVCT 001234 #10-884 
$DOA 035126 34-2832 34-2832 34-2832 #34-2832 
SOTBL 0554 34-2945 #34-2943 
SENDAD 035116 9-882 13-1425 34-2832 34-2834 
SENDCT 034744 13-1424 #34-2832 
SENULL 035170 #34-2832 
SENV 001244 #10-884 13-1425 30-2338 34-2834 34-2939 34-2940 34-2940 
SENVM 001245 #10-884 13-1424 34-2939 34-2939 34-2940 


CKKTAAO 


CREATED BY MACRO ON 26-SEP-79 AT 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


REFERENCES 
#34 


30-2464 
* 32-2782 
= 34-2833 


34-2939 
35-2947 
9-805 


35-2948 


2 
34-2833 


12:31 


34-2832 
12-1303 


* 34-2833 
* 34-2834 


3 
36-3077 


*34-2832 
* 34-2833 


34-2940 
34-2939 
34-2939 


35-2947 
9-805 


#35-2948 
34-2920 
34-2834 


*12-1310 
34-2834 


30-2489 


30-5838 


PAGE 13 
CREF 


34-2833 
34-2833 
34-2834 
36-3055 
36-3064 
36-3078 


*34-2834 
34-2834 


* 34-2940 
34-2939 


34-2920 
34-2834 


*15-1442 
34-2920 


30-2629 


34-2834 


34-2833 
34-2833 
34-2834 


36-3079 


34-2834 
34-2834 


#34-2940 


34-2920 
34-2834 


34-2920 


*34-2833 
*16-1484 


*32-2797 


* 34-2833 


34-2834 


36-3080 


34-2834 
34-2834 


34-2839 


34-2920 


*34- ess 


* 32-2797 


34-2833 


34-2842 


36-3081 


34-2834 


34-2939 


34-2833 
*16-1510 


*33-2814 


34-2833 


36-3050 
36-3059 
36-3073 


34-2939 


om tt 


689 
©33-9827 


* 34-2834 


36-3051 
36-3074 


34-2833 





SEQ 0122 


CKK TAAO CREATED BY MACRO ON 26-SEP-79 AT 12:31 PAGE 14 
SYMBOL CROSS REFERENCE CREF SEQ 0123 
SYMBOL VALUE REFERENCES 
SLSTAD 003020 #12=1310 #12-1310 
$LSTBK 003022 #12-1310 #12-1310 30-2314 30-2371 30-2383 30-2452 30-2456 30-2474 30-2515 
30-2525 30-2550 30-2591 30-2595 30-2614 36-3077 
SMAIL 001224 oe 9-883 #10-884 13=14624 13=1425 34-2833 34-2834 34-2939 
SMFLG 0022 * 34-2940 2940 *34-2940 34-2940 
SINE 037105 34-292 #34-2920 
SMSGAD 001240 #10- * 34-2940 34-2940 
SMSGLG 001242 #10-884 * 34-2940 
SMSGTY 001224 #10-884 34-2940 34-2940 34-2940 +*34-2940 
037074 34-2920 #34-2920 
SMXCNT 001344 #10- 
SNULL 001154 #10-884 34-2939 34-2939 34-2939 
SNWTST = #16-1460 16-146 #16-1460 16-1460 #16-1483 16-1483 16-1483 16-1483 #16-1509 
16-1509 #16-1509 16-150 #17-1559 17-1550 #17-1550 17-1550 #18-1601 18-1601 
#18-1601 18-1601 #18-1641 18-1641 #18-1641 18-1641 #18-1647 18-1647 #18-1647 
18-1647 #18-1653 18-1653 #18-1653 18-1653 18-1659 18-1659 #18-1659 18-1659 
#18-1665 18-166 #18-1665 18-1 #18-1671 18-1671 #18-1671 18-1671 #18-1686 
18-1686 #18-1686 18-1686 #18-1741 18-17 #18-1741 18-174 #19-1768 19=1768 
#19-1768 19-1768 #20-1864 18 420-1864 20-1864 #21-1912 21-1912 #21-1912 
21-1912 #21-1917 21-191 #21-1917 21-19 #22-1923 22-1923 #22-1923 22-1925 
#23-1929 23-192 #23-1929 23-192 #26-1935 24-193 424-1935 24-1935 25-1941 
25-194 #25-1941 25-1941 #25-1959 25-195 #25-1959 25-195 #25-1965 25-1965 
#25-1965 25-1965 #25-1971 25-1971 #25-1971 25-1971 #25-1977 25-1977 #25-1977 
25-1977 #26-1984 26-1984  #26-1984 26-1984 #26-1990 26-1990 #26-1990 26-1 
#26-2 -2 #26~-2004 26-200 426-2009 26-200 #26-2009 26-2 #26-2014 
26-2014 26-2014 26-2014 26-2019 26-2019 26-2019 26-2019 #26-2024 26-2024 
#26-2024 26-2024 26-2029 26-2029 #26-2029 26-2029 327-2045 27-204 #27-2045 
27-204 #27-2073 27-2073 3 #27-2073 27-20 #29-2181 29-2181  #29-2181 29-2181 
#292222 29-222 a 54 29-222 #30-2284 30-2 #30-2284 30-2284  #30-2365 
30-2365 #30-2365 30-236 #30-2509 30-250 #30-2509 30-2509 #30-2656 30-2656 
#30-2656 30-2656 #32-2781 32-2781 #32-2781 32-2781 #32-2787 32-2787 #32-2787 
32-2787 #32-2795 32-2795 #32-2795 32-2795 #33-2810 33-2810 #33-2810 33-2810 
SOCNT 040324 * 34-294 #34-2942 #34-2942 
SOC TVL 040752 34-2945 #34-2945 
040326 # 34-294 * 34-2942 34-2962 = # 34-2942 = 334-2942 = #34-2942 
SOVER 035352 34-2833 34-2833 34-2833 434-2833 
SPASS 001232 #10-884 #13-1424 = 34-2832 =. 34-2832 34-2832 34-2832 34-2832 34-2926 
SPASTM 000212 883 
SPWRAD 041216 #35-2948 
SPWRDN 041056 13-1424 #35-2948 35-2948 
SPWRMG 041212 #35-2948 
SPWRUP 041130 35-2948 #35-2948 
SQUES 001220 #10-884 34-2834 34-2834 34-2920 34-2920 34-2920 34-2920 34-2939 34-2939 
SRDCHR 36454 #34-2920 35-2947 35-2947 
C = xenaee 35-2947 
SRDLIN 036574 434-2920 35-2947 35-2947 
SRDOCT = xee2e8 35-2947 
$RDSZ = 000010 #34-2920 34-2920 
E 001160 #10-884 
SRE GO 001162 #10-884 * 34-2834 36-3052 36-3053 36-3055 36-3056 36-3059 36-3060 36-3067 
36-3070 36-3071 36-3072 36-3074 36-3079 


CKK TAAO 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
SREG] 001164 
SREG2 001166 
SREGS 001170 
EGS 001172 
SREGS 001174 
SRE SRE 040612 
SRTNAD 35166 
SRTRN 035162 
SR2A = eeenee 
SSAVRE 040554 
SSAVR6 041240 
SSCOPE 035174 
SSETUP = 000137 
$SIZE 002454 
$SIZEX 002732 
TUP == 177777 
SSVLAD 035316 
$SVPC == 000204 
$SWR = 173400 
SSWREG 001246 
SSWRMK = 000000 
$TBIT 001346 
STESTN 001230 
$TKB 001146 
$TKS 001144 
STMPO 001176 


CREATED BY MACRO ON 26-SEP-79 AT 12:31 


REFERENCES 
#10-884 


35-2947 
*13=1424 
35-2947 


34-2834 
13-1424 
34-2833 
#13-1426 
3 


30-2327 


36-3052 
36-3065 


*13-1424 


35-2947 
* 35-2948 


#9-880 


9-880 
13-1424 
34-2832 


9-880 
9-880 
#34-2833 


34-2834 


9-806 
34-2833 
* 34-2832 


34-2920 
34-2920 


19-1839 


* 30-2328 


PAGE 15 

CREF 
36-3055 
36-3070 
36-3056 
36-3074 


36-3063 
36-3078 


34-2832 


*35-2948 


34-2833 


#9-880 
#9-880 


34-2834 


9-806 
34-2833 
34-2832 


34-2920 
34-2920 


19-1843 
*23-1930 


30-2328 


H 10 


36-3055 
36-3071 
36-3058 
36-3078 


36-3066 
36-3079 


434-2832 


#35-2948 
#9-880 
13-1424 


13-1424 
34-2834 


49-880 
#9-880 


34-2834 


9-806 
34-2833 
34-2832 


34-2920 
34-2920 


19-1852 


30-2324 
*30-2385 


36-3056 
36-3072 
36-3059 
36-3079 


36-3072 
36-3080 


9-880 

13-1424 
13-1424 
34-2834 


34-2834 


9-806 
34-2833 
* 35-2948 


34-2920 
34-2920 


*21-1913 


30-2403 


36-3057 
36-3076 
36-3060 


#9-880 
13-1424 
13-1424 
34-2834 


34-2834 
9-806 
34-2833 


34-2920 
34-2920 


*21-1913 


5 
* 30-2528 


36-3058 
36-3065 


9-880 

13-1424 
13-1425 
34-2834 


#9-880 
#9-880 


34-2834 
9-806 
34-2833 


34-2939 
34-2920 


*21-1918 


30-2546 


36-3059 
36-3067 


49-880 
13-1424 
13-1425 
34-2920 


9-806 
34-2833 


34-2939 
34-2920 


*21-1918 


* 30-2569 


SEQ 0124 


CKKTAAO 


SYMBOL 


STRPAD 
STSTM 
STSTNM 


STTYIN 


CREATED BY MACRO ON 26-SEP-79 AT 12:31 PAGE 16 
SYMBOL aa CREF 


REFERENCES 

30-2572  *30-2691 36-3061 36-3063 
#10-884 *30-2484  *30-2624 36-3073 36-3075 
oh -abe *30-2390 *30-2553 36-3073 


#10-884 * 34-2898 34-2900 ‘ 
- *22-1924  *23-1930 = * 24-1936 §=— *25-1942 = *#25-1960 }§=—_ 25-1 966 


18 

85 1 5 

60 16-1460 #16-1460 16-1483 16-1483 #16-1483 16-1509 
50 17-1550 #17-1550 17-1576 18-1601 18-1601 #18-1601 


18-1622 18-1641 18-164 #18-1641 18-1642 18-1647 18-1647 #18-1647 18-1648 
18-1653 18-1653 #18-1653 18-1654 18-1659 18-1659 #18-1659 18-1 18-1665 
18-1665 #18-1665 18-1666 18-1671 18-1671 #18-1671 18-16 18-1686 18-1 
#18-1686 18-1741 18-1741 = #18-1741 19-1768 19-1768  #19-1768 1 0-1 
420-1864 21-1912 21-191 #21-1912 21-1913 21-1917 21-191 #21-1917 21-1918 
22-1923 22-1923 22-1923 22-1924 23-1929 23-1929 #23-1929 - 24-1935 
24-1935 #24-1935 - 25-1941 25-1941 25-1941 25-194 25-1959 25-1959 
#25-1959 25-196 25-196 =] #25-1965 25-1 25-1971 25-1971 325-1971 
25-1972 25-1977 25-1977 = #25-1977 25-1978 26-1984 26-1984 #26-1984 26-1985 
26-1 -1 #26-1 =I 26-2004 26-200 #26-2 26-2 


#27-2073 29-2181 29-2181 181 29-2222 29-2222 #29-2222 29-2249 
2284 #30-2284 30-236 0-236 #30-2365 30-2465 30-2509 0-2509 # 5 
30-2605 30-2656 #30-2656 30-274 32-2781 32-2781 #322781 32-2787 


30-2656 9 
32-2787 #32-2787 32-2795 32-2795 #32-2795 33-2810 33-2810 #33-2810 
#10-884 34-2939 34-2939 34-2939 


#35-2947 ae Snr> 35-2947 35-2947 35-2947 35-2947 35-2947 35-2947 35-2947 


7 
#35-2947 35-2947 35-2947 35-2947 35-2947 35-2947 35-2947 35-2947 35-2947 
35-2947 #35-2947 35-2947 35-2947 35-2947 35-2947 #35-2947 
ae? al #35-2947 


#9- 
#10-884 34-2832 34-2833 «= 34-2833 «= *34-2833 934-2833 = 34-2833 = 34-2833 = 34-2833 


34-2834 34-2834 34-2834 34-2834 34-2927 
34-2920 ea Sars 34-2920 34-2920 34-2920 #34-2920 


3 
#34-2939 34-2940 35-2947 35-2947 
34-2920 34-2939 34-2959 34-2939 #34-2939 34-2939 


7 
34-2942 one 35-2947 


SEQ 0125 


CKKTAAO CREATED BY MACRO ON 26-SEP-79 AT 12:31 a 17 
REFERENCES 
#10-884 


SYMBOL CROSS REFERENCE SEQ 0126 
SYMBOL VALUE 


V 
001250 30-2341 


035206 

000001 434-2832 34-2832 

040325 # 34-2942 34-2942 34-2942 
ketene 34-2834 

aeenne 2 34-2940 

000204 #9883 9-883 





CKKTAAO 
MACRO CROSS REFE 
MACRO NAME 


ADD18 


RENCE 


REFERENCES 
#8-694 


#17-1539 


25-1960 
#21-1913 
#21-1912 


34-2832 
gi ater t! 


17-1550 


CREATED BY MACRO ON 26-SEP-79 AT 12:31 


#30-2311 


0 
#26-2009 
25-1966 


#21-1918 
#21-1917 


13-1425 


#30-2312 
#30-2325 

26-2015 
#26-2014 


25-1972 
#22-1924 
#22-1923 


PAGE 18 
CREF 


430-2313 


0 
#26~-2019 


25-1978 
#23-1930 
#23-1929 


26-2025 
#26-2024 


26-1985 
424-1936 
#24-1935 


#30-2318 
8 


#25-1941 


#30-2319  #30-2320 


#30=2321 


SEQ 0127 


CKKTAAO 


MACRO CROSS REFERENCE 


MACRO NAME 


PARMSG 


POP 
PUSH 
REPORT 
SAVR 
SETPRI 
SETTRA 


SETUP 
SKIP 


SLASH 
SPACE 
STARS 


#06-2024 
#29-2222 
#32-2781 


#8-709 


18-1659 
16-1460 


34-2834 


882 
#12-1218 


#18-1642 


434-2832 
#13-1425 


#34-2920 


32-2781 


CREATED BY MACRO ON 26-SEP-79 AT 12:31 


16-1483 


0 
#34-2940 


435-2947 
#35-2947 


18-1622 
23-1930 
30-2465 


#18-1648 


#34-2832 


#34-2832 
32-2787 


16-1509 


#34-2940 


435-2947 


18-1642 
24-1936 
30-2605 


434-2920 
#35-2948 


18-1653 
#18-1654 


32-2795 


PAGE 19 
CREF 


434-2943 


35-2947 


18-1648 
25-1942 
30-2749 


435-2948 


18-1659 
#18-1660 


18-1601 


434-2944 

435-2947 
18-1654 
2 


5-1960 


#10-884 


18-1641 
21-1912 
26-1984 
29-2181 


26-1990 


35-2948 
435-2948 


#35-2947 


18-1660 
25-1966 


#26-2014 
#27-2073 
#30-2509 
#33-2810 
#34-2940 


18-1671 
#18-1672 


990 
29-2222 
435-2948 
35-2947 


18-1666 
25-1972 


18-1653 


#35=2947 


18-1672 
25-1978 


#12-1193 


SEQ 0128 


18-1659 
23-1929 


#35-2947 


21-1913 
26-1985 


#12-1200 


CKKTAAO CREATED BY MACRO ON 26-SEP-79 AT 12:31 PAGE 20 
nerER CREF 


s 
#32-2782 #32-2789 #32-2797 
10-884 10-884 10-884 10-884 10-884 
#10-884 #10-884 #10-884 #10-884 #10-884 


16-1460 16-1483 16-1509 17=1550 18-1601 
8 19-1768 18 


0 
435-2947 


18-1642 18-1648 18-1654 
24-1936 25-1942 25-1960 
30-2605 30-2749 


9-807 

9-807 

9-811 
9-819 


9 
34-2942 


10-884 
#10-884 


18-1641 18-1647 
21-1917 
26-1990 
29-2222 
#35~-2947 


18-1666 
25-1972 


9-812 


18-1653 
22-1923 
26-2004 
30-2284 
#35-2947 


18-1672 
25-1978 


SEQ 0129 


18-1659 
23-1929 
26-2009 
30-2365 


435-2947 


21-1913 
26-1985 





